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1.0 INTRODUCTION 


THE PURPOSE OF THIS PROGRAM IS TO VERIFY THE COMPATIBILITY OF UP TO 16 
WHICH MAY RESIDE ON ONE / MORE RH11(70)/RMO3 SUBSYSTEMS 


L 
DEFINED 1 Ae THE ABILITY OF A DRIVE TO WRITE DATA WHICH CAN BE READ 


BRIVE TO COMPLETELY OVERCMRITE DATA WRITTEN BY ALL OTHER DRIVES. 
COMMONLY CAUSE ORCOMPATIBILITY GETIEEN DAIVeSs) 


1. HEAD NIS-ALIGNMENT 
2. POSITIONER LATERAL MISALIGNMENT 

3. SPINDLE-CARTRIDGE INTERFACE RUNOUT 

4. IMPROPER LEVELS OF WRITE CURRENT 

S. INCORRECT ADDRESSING OF READ/WRITE HEADS 


THE TESTING IS DONE IN TWO COMPATIBILITY DATA 


a oct Pinney yaa ice ea 
WITH, ead Oersel paces A, his ts (oes chit A DRIVE yo Met 
ey eae og ee eee nts 


Pee FIRST AND 


RA IIo IS EAs A 
Gains ern AS Rene * em 
HAP Ohne Gaus, Runines "WE" ett “Med ee 


WeTeS beste WILL BE REPORTED AS THEY OCCUR. THE REPORT WILL 
SCRIPT oN AND APPLICABLE DEVICE REGISTER CONTENTS. 


Ba 
=| 


C- 
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2.0 HARDWARE REQUIREMENTS 


THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE RMO3 DRIVE COMPATIBILITY 
PROGRAM, FOR EACH SUBSYSTEM WHICH MAY BE PRESENT: 


OT henbat (05,10 MFG. ONLY), 20,30,34,35,40,45,50,70 


HL ek ee es PER CONTROLLER 
SH LLB ES TUE PGE eli 


THI OGE WILL BE MOVED FROM DRIVE TO DRIVE, (ON UP TO 16 DRIVES) 
ON EACH OF THE TWO PASSES. 


3.0 PRELIMINARY PROGRAM REQUIREMENTS 


BSRRLGRLSSS GRR ESB Sad otal sal 


BEFORE ING THE DRIVE COMPATIBILITY PROGRAM, THE SUBSYSTEM(S) 

UNDER ao MB OULD BE CAPABLE OF PASSING THE CONTROLLER DIAGNOSTICS 
AND THE DRIVE DIAGNOSTICS . IN ADDITION, THE 

263 CARTRIDGE MUST BE FORMATTED IN 32 SECTOR FORMAT USING THE PACK 

2 ORMATTER. 

204 4.0 -GENERAL PROGRAM CONSIDERATICNS 

: 4.1 SYSMAC 
THIS PROGRAM USES PORTIONS OF THE SYSMAC DIAGNOSTIC SYSTEM MACRO 
PACKAGE . 
4.2 XXDP 


rorurururururururoryu 
a pe 
WONCOUCW-O 


THIS PROGRAM MAY BE LOADED UNDER XXDP, AND MAY BE 
DUE TO MANUAL INTERVENTION AND LACK OF E 


RUN IN DUMP MODE 
ONLY. ND--OF-PASS HOOKS, THE 
PROGRAM IS NOT XXDP CHA 
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4.3 ACT 


THIS PROGRAM MAY BE LOADED UNDER ACT AND MAY BE RUN IN DUMP MODE ONLY. 
IT IS NOT CHAINABLE UNDER ACT. 


4.4 APT 
THIS PROGRAM MAY BE LOADED BY THE APT SYSTEM, BUT MAY BE RUN IN 
PROGRAM (DUMP) MODE ONLY. IT CANNOT BE RUN IN’ APT SCRIPT MODE. 


4.5 DUAL-ACCESS 


THIS PROGRAM DOES NOT THE 
ALL DRIVES UNDER TEST SHOULD BE 
NOT IN USE , OR LOCKED ON THE POR 


DUAL-ACCESS OPTION IN ANY AND 
-SE CTED TeROUGH THE PORT WontcH IS 


4.6 MEMORY MANAGEMENT 


MEMORY MANAGEMENT IS NOT UTILIZED IN THIS PROGRAM. IF IT IS 
INSTALLED, IT IS DISABLEN BY THE PROGRAM. 


4.7 MEMORY PARITY OPTION 
IF PARITY MEMORY IS INSTALLED, MEMORY PARITY TRAPS ARE DISABLED BY THE 


4.8 BAD SECTORS 
Ma 4 LIST OF Moos THEhee on On T Me en cerns te IS Toe ah ars ms of, . 
a 


Se gra! SieF Meet Hs a Bla Bat Bidin 


THEY OCCUR IN SECTORS DESIGNATED AS BAD. 


4.9 EXECUTION TIME 


THE vores. TIME REQUIRED TO RUN. THE DRIVE COMPATIBILITY PROGRAM IS 
DIRECTLY PROPORTIONAL TO THE NUMBE) DRIVES TO BE TESTED AND 
REQUIRES ABOUT 2 MINUTES PER DRIVE,EXCLUDING OPERATOR INTERVENTION. 


SE@ 0007 


st 3 
3 


gy 2 


See arneet Meta e ee aren ann ens re 


WWWUWUW) 
a ee a ae er 
OO NOU £ WT 


SRESRE 
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5.0 PROGRAM’LOAD MEDIA 


THIS PROGRAM CAN BE LOADED FROM PAPER TAPE 
OR PROM THE ACT OR APT SYSTEMS OR FROM ANY MEDIA SUPPORTED 


6.0 PROGRAM OPTIONS 


6.1 STARTING ADDRESSES 
200 - THIS IS THE STARTING ADDRESS FOR DEFAULT PARAMETERS AND 
RUNNING OF PASS 


1 PASS 2 ON A SINGLE SUBSYSTEM. THE 
gl DEFAULT RH11(70) BASE ADDRESS, INTERRUPT 
VECTOR ORITY. 


WILL ASSUME ALL 
aves TO BE TESTED RESIDE ON ONE RH11(70)/RNO3 SUBSYSTEM 


204 - THIS JIS STARTING ADDRESS 10 PASS 1 ON ALL 
i an SUBSYSTEMS WHICH RESIDE 0 ON THIS POP-11 SYSTEM. 


VECTOR, Of, AND PRIORITY FOR Ea EACH SUBS pa es, A eo 
OTHER SUBSYSTEMS, ARO THe BRIV On 
EACH 


AND Me Brive ts) Wil 


tH MIL 
™: i at SU ORES oly TE fe ey 
TO 


6.2 SWITCH REGISTER OPTIONS USED 


THT Prcons 1s Cesieee PAS THE USE OF THE HARDWARE SWITCH 
v5 gs IF PRESENT, OR THE SYSMAC-SUPPORTED SOFTWARE SWITCH REGISTER 
(IF HARDWARE SWR : T PRESENT, OR IS SET TO ALL ONES). IN EITHER 
CASE 1 me NG OPTIONS ARE IMPLEMENTED WHEN THE APPROPRIATE BITS 


ARE SET 
BIT OPTION 
mo I) ip thine i 
15 HALT ON E 


RROR 
14 LOOP ON CURRENT TEST 


SE@ 0008 


MAINDEC-11-DZRMI 
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12 “REPORT DESCRIPTION ORLY, ON ERRORS 

03 (BOB Oh 

08 APPLY RANDOM STALL BETWEEN OPERATIONS 
4 00 preRO SECTOR FILES (BSF’S) HT START 


7.0 RUNNING THE PROGRAM 
ONCE THE PROGRAM HAS BEEN LOADED INTO CORE (IN A GIVEN SYSTEM, IF 
THERE ARE MULTIPLE SYSTEMS) THE FOLLOWING STEPS MUST BE TAKEN TO RUN 
THE PROGRAM: 
1. THAT ALL DRIVES TO BE TESTED ARE POWERED UP AND SINGLE 
T SELECTED. 
LOAD THE DESIRED START ADDRESS. 


3. SET ANY DESIRED BITS IN THE HARDWARE SWITCH REGISTER (IF 
PRESENT). 


4. START THE PROGRAM. 


THe! ARUAL VINTERVENTION REQUIRED, AND THE ALTERNATE” USE OF 
MULTIPLE SYSTEMS (IF THERE ARE AN 


8.0 OPERAT_ONAL DIALOGUE 
THIS SECTION pescntees ie 


COROT 8 PS i “inc onbine OF ae ves)” ano aie E SELECTION OF OPTIONS 90 Ie 


WHICH Fe USED DEPENDS UPON THE STARTING 
ADDRESS WHICH WAS CHOSEN C (ee SECTION 6.1). 


N THE FOLLOWING DISCUSSION AND IN THE PRINTOUT OF TEST RESULTS 
Pe 1 Meenas BE REFERRED TO BY A LETTER AND A NUMBER. THE 


TEM OPERATOR ASSIGNED) THE 
ey Bg THAT SUBSYSTEM. FOR EXAMPLE, DRIVE C 
REFERS 10° DRIVE 6 ie SUBSYSTEM 


SE@ 0009 


O1 
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8.1 DIALOGUE FOR ADDRESS 200 START 
i THIS SIARTING ADDRESS MAY BE USED FOR DEFAULTING PARAMETERS ON ONE 

THE PROGRAM FIRST IDENTIFIES ITSELF AS FOLLOWS: 
334 (MAINDEC DZRMI-A ) - RMO3 DRIVE COMPATIBILITY TEST 
338 THEN, THE DRIVES 10 BE TESTED. 
338 DRIVE LIST, AS IN THE FOLLOWING EXAMPLE: 
400 DRIVES = 2,5,7<CR> 
Woe THE PROGRAM NOW PROCEEDS WITH PASS 1, AND DIRECTS: THE OPERATOR IN THE 
43 MOUNTING OF THE PACK, AS DESCRIBED th SECTION 8.4 
40S START, 
uo? Bich ee SU ne ELAS TH Ove ciorete Ho wD fe 
ig 8.2 DIALOGUE FOR ADDRESS 204 START 
die THAN “ONE sues Syste, BLT MET PT RAY. ALSO Be. USED WHEN THERE 1S JUST ONE 
416 SuBSySTen TOTAL) Tb SPECIFY DRIVES TO TEST AND NON-DEFAULT PARAMETER 
“8 THE PROGRAM IDENTIFIES ITSELF AS FOLLOWS: 
nd (MAINDEC DZRMI-A)- RMO3 DRIVE COMPATIBILITY TEST 
ues THEN, THE PROGRAM ASKS THE OPERATOR FOR THE DRIVES TO BE TESTED ON 
e HON teoyt'G 10 SSNS HOTTER CaALD Be UF WOE SuaeTeRe GIT 
ge DRIVE ON EACH ) 
4 SUBSYS A DRIVE(S) = 
ar THE OPERATOR THEN TYPES THE DESIRED DRIVE NUMBERS, AS IN THE FOLLOWING 
433 SUBSYS A DRIVE(S) = 2,5,7<CR> 
4 THE PROGRAM THEN VERIFIES THE ORIVE NUMBERS BY TYPING : 
3 WILL TEST DRIVE‘S) 2,5,7 ON SUBSYS A. 


439 NEXT, THE PROGRAM ASKS THE FOLLOWING QUESTION: 
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BREBIS TIA SSL TORO ENO NATO OSS SPA EOS 


RRS 


IS THERE ANOTHER SUBSYS (Y OR N <CR>)? 


THE Don ase TYPES Y<CR> OR WN<CR>. (IF T <CR 
RG peas TRAE ORL ts He ScGeHRATR HE Patan Tte 
oe TE fh SUA Riel 0 relic BP Ne EOE 
(SUBSYS 8B) AS FOLL 
SUBSYS B DRIVE(S) = 
THE OPERATOR TYPES THE DRIVE NUMBERS, AS IN THE FOLLOWING EXAMPLE: 
SUBSYS B DRIVE(S) = 2,3<CR> 
THE PROGRAM THEN VERIFIES THE DRIVE NUMBERS. BY TYPING : 
WILL TEST DRIVE(S) 2,3 ON SUBSYS B. 
NEXT, THE PROGRAM WILL ASK : 
IS THERE ANOTHER SUBSYS (Y OR N <CR>)? 


AND IN THE SAME MANNER, THE OPERATOR SPECIFIES THE DRIVES ON EACH OF 
THE REMAINING SUBSYSTEMS, UNTIL ALL HAVE BEEN SPECIFIED. 





ALL, SUBSYSTEMS MUST BE TES IN THE ORDER IN WHICH LETTERS ARE 

ASSIGNED (A aa H). OWS THE OPERATOR TO ALTER 

THE RH11(70) Meron Rieck 

SPERt is fos, Feotsene IN A LE Bene oe 
JUST <CR> IS TYPED, THE PARAMETER 


RMCS1 = O00000 177670 
RMVEC = 000 62S 
THEN THE PROGRAM TH PASS 1, AND DIRECTS THE OPERATOR IN THE 
MOUNTING OF THE PACK, AS bescelees th SECTION 8.4. AT THE COMPLETION 
OF PASS 1 ON THE ¥ST WILL INFORM THE OPERATOR HOW 


F 
S FIRST LOADED, THE FOLLOWING DEFAULT VALUES ARE Se AED: Mea TC70) BUS 


FOOL oatNG b ee PRINTOUT” IN” HATCH BUS RODRESS AND VECTOR WERE 


SEQ 0011 
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TO PERFORM RASS 1 ON THE NEXT SUBSYSTEM. 
» 


8.3 DIALOGUE FOR ADDRESS 220 START 


THAR SI PURE SPER, eUY 19 RAY. AsO Ge OSeD WHEN Thene 18 Just’ one 
PARE TEN YALLES, on’ PAS 2. Re Prodiw YoewriPies 1YSELF,, RS 


FOLLOWS 
(MAINDEC DZRMI-A) - RMO3 ORIVE COMPATIBILITY TEST 


Srfat DesttuseD Aaove.(SEETiON gc), FOR TE SELECYTON OF slusysTEn 
SPC eILIO FAA LG H EBoue 1s EGreteTeD, The 


PROGRAM WITH PASS 2, AND DIRECTS THE OPERATOR IN THE MOVEMENT 
OF THE PACK, AS DESCRIBED IN SECTION 6.5. 


NOTE THAT SINCE THE APPROPRIATE PROCESSOR 


fest PAY Pera S eA Wein ee Wo nig aera 


DISTANT LOCATIONS MOVING THE TEST PACK AND SAVING THE PRINTOUT 
FROM EACH PASS ON EACH PDP-11 SYSTEM INVOLVED. 


8.4 PASS 1 DIALOGUE 


AFTER THE SELECTION OF PARAMETERS AND DRIVES HAS BEEN COMPLETED ON THE 
HS Yaren ts (SECTIONS 8.1-8.2), THE PROGRAM INDICATES THE START 


#% STARTING PASS 1 ## 


Sl It PREP SAETS oF RL PEM olF hls HS 


IVE, AS IN THE FOLLOWING 


oP te R DRIVE READY: 


THE OPERATOR PERFORMS THIS TASK AND TYPES R<CR> WHEN THE ORIVE READY 
‘ LIGHT IS ON. RO THEN INSTRUCTS. THE OPERATOR TO UNLOAD THE DRIVE AND 
Bho te bac AND ite ie PrSTRCTS THE OPERATOR TO UNLOAD THE DRIVE AND 


UNLOAD DRIVE A2 AND REMOVE PACK. 
TYPE R<CR> WHEN DONE: 


SSRI RRCO RE SOLO EON Sasa Gon oe SES IR REN CSR RRL EO SES | 
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THE eer oe ten owes THESE FUNCTIONS AND TYPES R<CR> AFTER THE PACK 
HAS BEEN 


a Whe ick entbur T TRUCTS THE OPERATOR IN THE MOVEMENT 
THE OR ON THE 
ANTS wis ie OF 
ince HS IF Is LeTED, ORE SUBSYSTEM (FROM ADR 200 
START) THE PROGRAM BEGINS PASS 2 (SEE SECTION 8-5) S). (2) IF THERE 
IS ANOTHER SUBSY'S THe IRECTS THE OPERATOR TO PERFORM 
PASS 1 ON THE SUBSYS AS FOLLOWS : 


STARTING PASS 1 ON SUBSYS B 
(3) IF THERE ARE NO MORE DRIVES TO TEST IN PAS 
PROGRAM DIRECTS THE rom TO BEGIN PASS 2 
SECT. 8.5) AS FOLLOWS 


STARTING PASS 2 ON SUBSYS A 


ANY _SUBSYS 


1 ON THE 
THE FIRST SUBSYS (SEE 


S 
ON 


8.S PASS 2 DIALOGUE 


THe, “BIALOGUE OF THE AOR 300° START, ee Siti OF 


oe Sa a a ee Fe Rut; ethan Te 


## STARTING PASS 2 ## 
2h 2 PR es re 
AFTER PASS 2 TESTING ( Sect 9.2? TS COMPLETED ON 
a U ya ERED IBIS 
FOR Thithoe DRIVES o THE FIRST SUBSYS 
Sy PRT) OR T-ALL ‘DR DRIVES ON ALL “SUBSYS HAVE 


ee CEROM nT ThE phoctan’ reset IRE TESTING AND 


## END OF TESTING ## 


SEQ 0013 


POTS Lt -OzRaT 0/00, ; Og DRIVE COMPATIBILITY TEST MACY11 30(1046) @21-JUL-77 16:51 PAGE 15 SE@ 0014 
599 


Sali RARER Re SOF Sacer EPL ETS 


STARTING PASS 2 ON SUBSYS B 


RREBRES 
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9.0 DESCRIPTION OF TESTS 
THE MAIN FUNCTIONAL BLOCKS OF ASSIGNED TEST 


REFERS to’ fhe ‘OPchATOn INPUT Dla PU ee NN sechibg 
DéScRiPtron OF pace 1 fro Pras 2 YESTING. * 


IN THE FOLLOWING SECTIONS, TABLES TO. IN THESE 


Ter PET Ret "ON Bare MURILLO 


AD,Al, Pe,...B0,81,82,...C0,Ci,Ce,... ETC. (SEE SECTION 8.0). 


9.1 DESCRIPTION OF PASS 1 TESTS 
IN PASS 1, THE BASIC READ/WRITE CAPABILITY OF EACH DRIVE IS 
DEMONSTRA AND COMPATIBILITY DATA PATTERNS ARE WRITTEN BY ALL 
DRIVES UPON THE SAME TEST CARTRIDGE. 

THE SEQUENCE OF OPERATIONS PERFORMED ON EACH DRIVE IS AS FOLLOWS: 


1. TBeRatOR MOGHTS THE PACK OR THIS DR RANURLLY LORDS THE 
HEADS, TOO TRERTED BY THE PROGHAN hive fevtnay L 


Rat PPE eee emu he naa 
ivoire Baie rt SE inicio 


t 
Re hina ve ee Sn SHEE 2 
Tae ¢- ie 7 $ Hie ; ras DATA 


FROM EACH DRIVE I UNIQUE. T DETERMINED AS 


OWS 


CYL 
BLOCK USED FOR WRITE TEST IN PASS e. LAST 
OF CURRENT 


SEQ 0015 


BEeR Re Rees 


oo 
=8 


ooo 
288 
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INNERMOST ZONE) IS THE SECOND BLOCK 


Grit adi ME Me ne non ae semcica: 
i POTATED FROM 20 TO, 20 SOTA THE Oe pack 


WITHIN EACH CYLINDER BLOCK, UP TO 32 SECTORS ARE WRITTEN 
NG ON THE NUMBER OF ORIVES BEING TESTED) ON EACH 


ART secron = CTOR OL eas cae ry) THE So I 
es. ad oe 
PAE ode ri CTOR On’ apvBCENT INSURES THAT DATA FROM 


CYLI TA FROM 
be eee 


are Paes hs Tone WITH RESPECT TO 


Raton OURLoGDs THE! ORvE AR OIShOUNTS: “The Pack, AS 


DIRECTED BY THE PROGREM (SEE CTION 8.4), TO PROCEED ‘WITH 
THE ABOVE STEPS ON THE NEXT DRIVE. 


SEQ 0016 
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696 


9.2 DESCRIPTION OF PASS 2 TESTS 
CRVEAL OTMER ORIVES "AAO T0'READ OATA WRITTEN BY ALL OTFER 
THE SEQUENCE OF OPERATIONS PERFORMED BY EACH DRIVE IS AS FOLLOWS: 
A. TS TT. eee CARTRIDGE FOR PASS 2@ - THE 
ON THIS DR 


OPERATOR MOUNTS THE VE AND MANUALLY LOADS THE 
HEADS, AS DIRECTED BY THE PROGRAM (SEE tes asic 


SEUSS BREE BES 


710 2. TEST & - WRITE TEST 

Ht Denil igh TWh oi, ae 
i BS a aooty ia 

i 


Pury ERENT 5 Bella al 1S 
RL a a 


AT THE 







VERTED & a ha Aa Tie 

PRoPont Trove SEPSET INA ties Ware tate see 
NG THE_DATA OVER ONE OF THE OTHER 
ee ios HL BRE mie OF VES ne 


OR SEVERAL OTHER DRIVE’S DATA 


Segessosggigggaany 
$ 
ae 
ra 
Si 


_ 
& 


530 * Orie’ eT nee WRI TE AND aU ERG TT Ties of EN pata wi; TER RTOUe 
741 THE PACK. FIRST, ALL 

ns Th ESTE ott Gout he GS EN a 
744 

745 IN oe oral Nas — 

746 SCANS FOR READ ERRORS DURING EACH IT 
747 ConPUTES a A Sone WHICH IS PROPORTIONAL TO THE FETCING OF OFFSET. 
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CYLI Te Oo eee aw RED TO One Pe TH A ORIVE 
Hawks paar Re, Fn Ea, rast outta 
READS WHICH ARE TO FOLLOW 
4. TEST 1OCOCTAL) = ser DATA rote y * Lae - HAVING pee 
ORTH LI Gael Holt pee ase 
ae pea foe WH oF Bl J lool 
yp fee een! 

ee Te eT seer OFn Fac otRection 
IB ity onta. THEN 


ie! i -Test 

es : a PURE 

RR Y THe A WR % "Oe 
OR 


L ICULTY IN READING THE DATA 


1a pci SLR & 
UNLOAD Ponti AOD RIND BISHOUNTS THE THE PACK AS Khe’ DIRECTED BY THe 
Roe Bivens 8.5), TO PROCEED WITH THE ABOVE STEPS ON 





BIER EERE IAIA TANT IS ELEN TORS CUMUMNGE RSS 
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10.0 PRINTOUT OF TEST RESULTS 
THE TEST RESULTS ARE PRINTED A 


Teed tons steerer ea" PeceEAIN TO Te 


rT 
g 
3 
2 
a 
Re 
3 


PASS 
OVE 


& 
= 
z 
3 
i 


10.1 TEST RESULTS 


ARE BREWER, RBS Gee SS THE COMPATIBILITY DATA READ 


IF THE TEST’! 
#% ALL DRIVES ene COMPATIBLE ### 


IS PRINTED. IF THE rest IS FAILURE, THE TEST RESULTS 
ARE TABULAR IN FORM AS SHOWN. 


TBsTeS FRR GSA Ac, b0, "wo. GS. <The TEST RESULTS FoR DRIVE al 


SCORES FOR DRIVE Al : 
TRACK DRIVE OVRWRT OVRWRT READ READ 
NO. READ OFST- OFST+ OFST- OFST+ 
0 Re #0 #0 : 
THE ABOVE EXAMPLE REVEALS A POSSIBLE COMPATIBILITY 
ORIVES Al ~~ A2. NOTICE THAT ON TRACK 0, THAT THE OVERWRITE SCORES 
Y A (0), AND THE PROGRAM NOTED THESE BAD SCORES 


ALL ACCEPT TEST RESULTS ARE NOT PRINTED. 


PROBLEM EXISTS BETWEEN 


SEQ 0019 
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11.0 ERROR REPORTING 


11.1 COMMON ERRORS 


TYBEOUTS. “FROM, “THERMOS DRIVE COMPATIBILITY PROGRAM. THE ERRORS ARE 


SELF -EXPLANATORY . 


ADDRESS PLUG CHANGE BIT SET 
RH11(70) DIDN'T RESPOND TO ADDRESSING 
UNCORRECTABLE MASSBUS PARITY ERROR 

FATAL MASSBUS PARITY ERROR 

PERSISTENT DEVICE UNSAFE 

OPERATION NOT COMPLETED WITHIN TIME LIMIT 
DRIVE WENT OFFLINE 

NO RESPONSE TO PORT REQUEST 

HEADER CRC ERROR 

DATA CHECK "DCK’ ERROR 

WRITE CHECK ERROR - DATA CHECK ’DCK’ SET 
WRITE CHCKE ERROR - DATA CHECK ’DCK’ NOT SET 
HEADER READ ERROR - ’FMT’ BIT DROPPED 

HEADER READ ERROR - HEADER COMPARE ’HCE’ ERROR 
FORMAT ERROR 'FER’ 

HEADER COMPARE HCE’ ERROR 

MISCELLANEOUS DRIVE ERROR 

OPERATION INCOMPLETE ’OPI’ ERROR 

DRIVE TIMING ’DTE’ ERROR , 

PARITY ’PAR’ ERROR AFTER OPERATION STARTED 





MAINDEC-11-DZRMI AD/00, RMO3 DRIVE COMPATIBILITY TEST MACY11 30(1046) 21-JUL-77 16:51 PAGE 22 SEQ 0021 
OZRNIA.P11 21-JUL-77 15:44 

eet WRITE CLOCK FAILURE ’WCF’ ERROR 

a4 INVALID ADDRESS ’IAE’ ERROR 





WRITE LOCK 'WLE’ ERROR 

DATA CHECK ’DCK’ SET DURING WRITE CHECK COMMAND 
RH11(70) OR UNIBUS TRANSFER ERROR 

BUS ADDRESS OR WORD COUNT INCORRECT 

DATA COMPARE ERRORS - NO OTHER ERROR(S) DETECTED 
CAN’T MATCH DATA READ WITH A PATTERN 

ERROR BIT(S) SET,BUT NO ERROR SIGNALED BY THE RH11(70) 
ECC LOGIC FAILURE - POSITION REGISTER VALUE NOT VALID 
BUS ADDRESS AND WORD COUNT NOT CONSISTENT 

SEEK INCOMPLETE ’SKI’ ERROR 

PROGRAM DETECTED POSITIONING ERROR 

DRIVE UNSAFE ERROR 





PS eeinsiece thie taps 


wo 


bee ee 
-O 
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11.2 ERROR HANDLING 
FEROS REPORTED CSUmCYSTER TURTIONS. AS COMMON renee RESULTING 


TO °Ban "ERROR 
PERSON A Lie eee: cae "OONTENTS. IN Octal. AS. AUC 


HEANTNGFUL REGISTER DATA AS POSSIBLE (FOR RH11(70) REGISTERS) 
pre, REPORTED IN A GIVEN ERROR. ERROR REPORTS MAY CONSIST A 
SINGLE IPTIVE LINE. 5 


11.3 ERROR PRINTOUT EXAMPLE 
RH11(70) OR UNIBUS TRANSFER ERROR 
RMWC 


0 WWWWWwWw 
oO ee 
OO NOU £ Wr 


RMDA 

1 144 174400 000431 
RMCS2 RMOS MERI RMAS RMDB 
000100 010700 000000 000000 000000 
RMMR1 RMDT RMOF RMDC RMMR2 
ooo0so 024024 010000 000716 011777 
RMERC RMEC] RMECe 
000000 004066 000000 


URES ES SEES i yi cw ny Ne 


& 





LOe 
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SE@ 0023 


PAGE 24 


21-JUL-77 16:51 


w-7? 


2l-J 


Pll 


MAINDEC-11-DZRMI AD 
OZRMIA 


OMUMNTMNWKOCO-uNITwN 
tt te 


SECTORS 


PITTI T IES Bou 


TABLE A 
CYLINDER 


BASIC READ/WRITE TEST SECTORS 
ADDRESS OF SECTOR ON EACH SURFACE 


8 
yt 
re 1 OmMUNTNwWOCOoO-wuUMNTwN 
= ; oon inem nem em hem teen) 


PREPERERERERRRERERE ROR TRE R ERR RT 


MOe 
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SEQ 0024 


21-JUL-77 16:51 PAGE 2S 


15:44 


7? 


21-JUL- 


Pil 


MAINDEC-11-DZRMI AO 


OZRMIA 


TABLE B 


puters 


DATA (OCTAL) 


WORST CASE DATA PATTERN (REPEATS EVERY 16 WORDS) 


OMmUMTUMNWDTCO-UMTWN 
tt tt 


WORD NO. 


FR eeee Heese CEeEsssaccosssouauaee 


hd tt dg ed et fo te 
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TABLE C 


ct all OB a ls RR 


CURRENT OVERWRITE CYL COMPATIBILITY CYL 
ZONE - RANGE BLK RANGE BLK RANGE 
CYL 0-127 CYL 0-15 CYL 112-127 


1 - 

5 - 384-511 -399 496-511 
5 - 512-639 512-527 624-633 
8: . 7 752- 


e783 =e 





BO3 
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SE@ 0026 
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15:44 


21-JUL-77 


Pil 


MAINDEC- 


OZRNIA 


9 10 11 le 13 14 15 


es 7 & 3.044 15 


SECTOR NUMBERS 


4 


3 


TABLE 
BASIC CYLINDER BLOCK LAYOUT EXAMPLE 
2 


1 


0 


NOUS T-MUD-MOOK 
— oad ome at qed 
TWH TWMNMOVW=NOMUOTrK wo 
at a — Fo cond to 
MFOMN UU -HOTFTWN-OwMWw 
ts -_ _—- «+t 


tt — a 


UT -WMNOOF IMDuUNT ore 
tt ooo 4 al 


O=MOTOMWT —CUmiINMru 
tt — «4 ~ 


COUIMNDTMNMOO—t Ft 
enon! ~~“ «_ —t 


QO TCU. OTUNNOWNM-«O 
Coon iene) — — tt 
RWOOM-WUMATTONVOW 
ot a og ol 4 
OR SCUNOM=—VUOMM@OT “NT 
— com ~ com te 
MOON TO-OUURMOT™ 
tt ot _ —— 


TUK OF MCOWO——0ULIMCU 
tt _ ae ed 


MFTOOMUDINS OOW—-—T tuU-4 
_ — = tt 


UMNUMNODUANnTOMNTTOM-O 
fon) — = Se heen 


=—UTht “OWMUMTOMNnwoOT 
4 + = ee 


O-MWOOMMUT MUTT -~owM 
“1 tt ie 


ea rattan 
dd ad ad ad ad md wd ng wd md od wd 


OMNES TMU MOM 
—_aA =—- + Ot 


=—TWOMMOU—W wUOrwo 
Ht ey | we 
—t 
OM UNeO=OF —MmoW 
4 od re 
com 
U0 O00CM Onrwmr 
~ on 
4 
“—MmOoOorwWMaw morn 
= — 


—MOFTOMOTNR— Dinmcu 
—— -<- = 


9 10 11 le 13 14 15 


OUMMNOTMMwOO w~rwu- 
at _— _ 


QO TUN OTUNMNOWM=-O 
tm oo} 4 oon Ieeeeat 
ROOMN$WUNATITTOMNVUOW 
Neh os yy ty — 
OKTUOM=—VWOMMaT-uNMsTt 
at = —_ — 4 
NUON TO-TUUnRMOTrM 
Some Roe 3 = = oe ion 
TWH OFMCOD——OMUN MC 
~~ ae 


he ee 


UMMOU& TOMO TOM-O 
— — = ee 


UT -OWNMMTOMNnuoOT 
— —~— el 


16 17 18 19 20 21 22 23 OY 2 & 27 8 29 3 Fl 


O-MOOWMNUT Or uUT=oOM~M 
1a“ + «4 aie) 


Meu Ree ssee sad BEES CECS RSE Ra Ra MRE RRR ENE T RPE RESSIes 


Sa Rae Ream Ream Keen Roe eae eee eee hee Kee Ieee Ieee heme Thee eee eee, heen, earn ear ee Tre ne Re ne ee ee ee ee ee ee ee ee pe ee ee ee ee ee eee er) 


CO3 
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SEQ 0027 


E 


TABLE 





CATIONS 


OVERWRITE CYLINDERS 
CYLINDERS OVERWRITTEN 


O-MUMTUMNOFWOCO-wMTN 
I 


DRIVE # 


fa {=ta thee EA ee ST A Hittite tet et TY 
dd td tt Lae | 

Se hae hee hee he ee em hen kom hem hom hon kom Kom hom ham ken han kan hen hen hem hen ken kan an LL Lr) 
Se ee ee eee eee tee ee ee hee hem bee ham ham ham bam ham Keema hea hee ee eam ham bem kame Kaen hoe hae han hen ee) 


21-JUL-77 16:51 PAGE 29 


TABLE F 


SELF-TEST CYLINDERS 


DO3 


CYLINDERS 


DRIVE # 


15:44 


21-JUL-7? 


Pll 


RRRRERERRRR PRE ES 


FPS PS RORRARRERTS 


EE ed ed ad ed ey ee He et ed 
oe eee @ eoeeee eee e «& 


= BA attire ta toto 


O-MUMNTMNOK OCTO—UMTwN 
tt 


BBSSS SSF PPS PT RANRHRRDRAZSLBDSSoBORN 


OO mg ad ad ng Ed et hg ed eg a ed ed a hd a dt et 
Sk dd kk ak dd dd ad ad dd ad dd nd ed Od ad od wd ad Od Od dd wd wd 
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Hl | iam AO 1 2 ale COMPATIBILITY TEST MACY11 30(1046) 21-JUL-77 16:51 PAGE 30 SEQ 0029 


PSEUDO-RANDOM DATA PATTERN 


BELKRLGCLSBBIRFRIGHH—BIBarIeadzI0 


33-0:0:5:8:0-0:0:0.0 29D RRRammaS II IIIT 
st 


WORD # DATA (OCTAL) 
0 040135 
1 177070 
2 4 
3 
4 1 
5 062422 
: 1143Se 
8 1 
8 aa 
fae 

le 102367 
13 152567 
14 

1S 1 


12.1 RH70(11)/RMO3 ORIVER 


THIS DOCUMENT IS THE USER’S GUIDE FOR THE RH70/RMO3 DRIVER. 
12.2 TO INITIALIZE THE DRIVER: 
ey PC, RMINIT 
URN 


NOUEWM-O 


Ot Ds bes be b= be p= Pe 





EXAMINE THE “DRVSTA” TABLE TO DETERMINE 
ONLINE FOR TESTING. THE ’ORVSTA’ TABLE IS 


OB Bs Bs Ob bb be 2 bb 0 eb be Bb bs pe ee he he 


ecb UPON RETURN YOU MUST 
227 THAT ARE 
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EIGHT BYTES; ONE BYTE PER DRIVE. THE STATE OF EACH DRIVE WILL 
BE INDICATED AS FOLLOWS 


DRVSTA DRIVE STATE 


0 ONLINE RMO3 
=0 OFFLINE ORIVE 


RONeXISTENT ver 


THE DRIVE TYPE IS DEFINED IN AN 8 BYTE LONG TABLE TAGGED ’DRVTYP’. 
INS ONE BYTE FOR NRE ee IS INDEXED BY THE 


8 an DRIVE 
=f NOT AN RMOS 


THE ’RMINIT’ ROUTINE WILL DO A READIN PRESET AND WILL SET FMT2e2. 
12.3 AFTER THE ad My HAS BEEN INITIALIZED, IT IS CALLED USING THE 
FOLLOWING ‘ 


J RO, RMO3 ; THE 2: 
RETURN : 1 pees IS FULL 
T S IN 


*#DPB (DATA PARAMETER BLOCK) 
PNTOPB: .BYTE 


‘BYTE 
TE 


oe Bn be ae Be be ae be be bee be ae Be Be Be ae ae ee Be ae Be ae Pe Be Be Be me be be Be Be Be he Be be me Pe pe Pe Po be ee ae Fes Pe Pe PO 
UERRAARRAASLS Sa anal cur atalino ee eH hit 
BROS g 2 b: 8 
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-WORD O | iH dd Ag ICATOR 


=> 
ay CL Be srr BIT06-B1T03 
ia 


+e. 19 10 UTIL ite its CAPRAILTTY. YOU By greg “Ri TIMER” ROUTINE 


ELAPSED TIME IN THE FOLLOWING MANNER 
MOV 816. ,-(SP) : Ab MILLISECONDS BETWEEN 
ISR PC, RMTMR *CALL THE TIMER ROUTINE 
IT SHOULD BE NO THAT YOU MUST PROV PROVIDE THE CODE TO DRIVE THE 
CLOCK. T Be IN MILLISE 
Te Da VER Bri tee Ae ALL POSITIONING 
T SO MILL HE TIMOUT TO 30 


OCK 
SECONDS FOR ERROR RE 


12.4.1 EXAMPLE - WRITE 1000. WORDS 
1S: JSR RO, RMO3 Cee pooRESe 


SONS RCS SESE SOR EERE SE RE 


WRTOPB 
8R 1S “WAIT FOR QUEUE IF 
i 2S: ist TOPB+16 *WAIT FOR COMMAND 10 UEOMPLETE 
i BMI ERROR1 ;ERROR OCCURRED 
314 : 
i : 
i WRTOPB: .BYTE 5S ;ORIVE #5 
18 ‘BYTE 0 : 
-BY 61 ;WRITE COMMAND 
‘Bue -1000 WORD COUNT 
“WORD  WRTBUF i BUFFER ADDRESS 
BYE  PRnex 


WRTDPB: 5 THIS SETUP ACHIEVED 
WRITE 43 ING THE 

WORD -1000. : TABLE DID, BUT 

WORD WRTBUF IN A CLEANER FORMAT 


12.5 RH70/RMO3 REGISTERS 


ee ee a ee ae Oe ae ee a ee ee ae ae ee ee ee ee ee ee ee ee 


Se RR BREEN RENN. 
= 
3 
8 
5 
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—p ee 


eeiiiiahien yaaa a raz22 


Sa ageresduonangeens 


12.6 | COMMANDS PERFORMED BY THE DRIVER 


OFFSET 115 
RETURN TO CENTER 117 
READIN PRESET 121 
PACK ACKNOWLEDGE 123 
SEARCH 131 
GET REGISTER(S) 141 
SET FORMAT 143 
SELECT DRIVE 14S 


BP 0 0 0 = BP 0 0 0 0 0 bb 0 0 0 


REE SESE RPE RO SII sn e Gee eR 
fs 
i 


owwnwswse2azazZzeTvTvewv2aza zaveww.,2zz 
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Ei WRITE CHECK DATA 1S1 D 
399 WRITE CHECK HEADER 1S3 D 
400 AND DATA 

‘Be WRITE DATA 161 D 
404 WRITE HEADER & DATA 163 D 
ioe READ DATA 171 D 
a READ HEADER & DATA 173 D 


Bam Go Fb bas bp Fm eR b= = bee be ee eS pe 


410 
411 N= ING 
Hig P= ONING 
41 D = DATA 
44 S = SPECIAL PROVIDED BY THE DRIVER 
ug 12.7 DPB STATUS/ERROR INDICATOR WORD 
4g THIS INDICATOR WILL INFORM THE USER OF THE RESULTS OF THE REQUEST. 
{20 THIS IS ACCOMPLISHED BY SETTING VARIES BITS OF THE INDICATOR TO 
1421 . 
1iee BIT NO. MEANING IF ON A “1” 
14 
igs 1S ERROR 
14 DONE (BIT ; BITS 14-10 SPECIFIES TYPE 
14 DONE (Blto7e1): BITS 06-03 SPECIFIES TYPE 
1429 141) USER MADE A RE REQUEST FOR A FUNCTION ON TO BE 
1430 ON AN OFFLINE OR UNSAFE DRIVE 
14 13(1) ST F 
14 8 Be PEREORRED Of AO Bei IVE t TORS AN 
14 UNLOAD REQUEST I 
14 12(2) PERSISTENT UNSAFE CONDITION EXIST. 
1 11(2) UNCORRECTABLE PARITY ERROR OCCURRED 
1440 10(2)(4) FAT ITY ERROR. A 
Lay CERFORMED. ALE RUEUES WERE EMPTIED, AND 
iw PLY DRvact? 5 o Ee TO he IDOLE STATE’ 
wwe 9(3)(4) SOFTWARE TIMEOUT OCCURRED ON THIS DRIVE 
Lig 84) SOFTWARE TIMEOUT OCCURRED ON ANOTHER DRIVE 
14g 7 DONE 

= 140 6(2) ERROR OCCURRED DURING AN I/0 OPERATION 


Wa 2. 
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5(2) ERROR OCCURRED DURING AN OPERATION 
OTHER THAN 170. 

4(2) CORRECTABLE UNSAFE CONDITION OCCURRED 

3(2) DRIVE ERROR OCCURRED THAT CAUSED AN 


AUTOMATIC “RECALIBRATE™ SEQUENCE 


eee ae i oo 
! APLAR of 


: (1) = REQUEST WASN’T PUT 4 See. (RH70/RMO3 
REGISTERS WERE NOT 


i ce oe 


SEECRREERAESOGROAR | 


Cl emead 
Lfe 
an 


1474 : 
147 (3) =) aval ED. THE 
4 yy DRIVE WERE 
4 SAVED AS PER DPB+14 BEFORE THE INIT. 
(4) => a” IBRATE™ SHOULD BE ISSUED 
BEF: OTHER COMMAND. 


12.8 ERROR CALLS MADE BY THE DRIVER. 
THERE ARE A FEW ERRORS THAT CAN OCCUR THAT CAN NOT BE INDICATED IN A DPB. 


EDM ATT Pat SU's ORME He' hl 


EMT’ INSTRUCTION. 
N Tie DATA AVAILABLE 
1 pa A #R4= RMCS1’S ADDRESS 
2 iene ec TED ATTENTION Ris Oe NUMBER 


0 0 0 0 0 0 0 0 0 0 0 0 Ob 0 ee 


SRA TONS S SE SPR POOP OES SARE SS 


3 MASSBUS PARITY RD.ADR= ADDRESS OF REG. READ 





KO3 
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150% ERROR (MCPE=1) RD.WRD= WORD READ 

1510 4 MASSBUS PARITY WRT.AD= ADORESS OF REG. WRITTEN 

Be ramon treme Ro BB 

1514 S ADDRESS PLUG CHANGE Ri= DRIVE NUMBER 

151 BIT SET (°OPE’ ERROR) —_Ra= ATA BIT 

151 #R4= S ADDRESS 

: : RS= (RMAS) 

1218 1 

1 

is 

1523 * THIS IS THE ACTUAL UNIBUS ADDRESS (176700) 

1525 a 
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1258 .TITLE MAINDEC-11-DZRMI AQ/00, RMO3 DRIVE COMPATIBILITY TEST 
1828 j HCOPYRIGHT aC) 1976 
ise HN, tes fart 4 
1235 j SPROGRAA eh 
1 :#THIS PROGRAM WAS ING THE PDP-11 MAINDEC SYSMAC 
: HEPACKRAGE RATNOES-11 Doane CS). JAN 19, 1977. 
i - SBTTL OPERATIONAL SWITCH SETTINGS 
: is SWITCH USE 
1 +i 15 HALT ON 
1 + LOOP ON TEST 
1 + 13 INTBIT TYPEOUTS 
i * 12 INHIBIT TRAP 
1 1H 11 INHIBIT TIONS 
1 .% 10 BELL 
i a 3 LR On N SWR<7:0> 
1 i bOOr "RO IN FOR FILE 
i p "SBTTL BASIC DEFINITIONS 
1 -¥INITIAL ADDRESS OF THE STACK POINTER ##* 1100 #%# 
1 001100 STACK= 1100 
1 EQUIV , ERROR ;;BASIC DEFINITION OF ERROR CALL 
; “EQUIV IOT, SCOPE BASIC DEFINITION OF CALL 
1 -¥MISCELLANEOUS DEFINITIONS 
1 000011 T= il ;;CODE FOR HORIZONTAL TAB 
1 le LF= 1 33 ais 
t Ree 3 11 RO FOR CARRIAGE RETURN-LINE FEED 
3 ee 
1 177776 PS= I +e oratus Woo 
tea 177774 Aris ee IMIT REG 
Ss ee 
ie ire Bins L7rre © Pal TNTeRup, Re ust REGISTER 
i 177570 DDISP= 177570 tT RDUARE Bt REGISTER 
i jXGENERAL PURPOSE REGISTER dene fen 
i BpDDoT ae i i RE CTeTER 
1 000002 Ro= %2 >;GENERAL REGISTER 
aa 2 ie ReCe 
t 000006 Ro: 4 is 
= # gest eee 
1 SP= Xe 33;STACK POI 
i PC= ;;PROGRAM COUNTER 
1581 ;#PRIORITY LEVEL DEFINITIONS 
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wo 
-_ 





SRRe OR eoee SRREOR 


CSUR EDC oe 


Be Rb = bh 0 pe bs 


POCKKSK' To 





= BP Pe bm Bs Bm Bb 0 bb ht hb be he Re heh BR oe pp 


CRA EEN ae Cok eR 





BASIC DEFIN 

Bo: hy DUB LE 9 
ee fe ERE 
PRS= 240 

an, Heats Hevet 5 
A ag A anal SWITCH DEFINITIONS 
ae 


- 
me eS 8Sonn Seeee 


y 


a Geeeeneree 





BESERESERE 
eeepeeriege 


INITIONS (BITOO TO BIT1S) 


: 
: 


Sedeocerece 
ry) 


Pirrsvese 
Sane 


SEBS 


* ss MWMBWDWOWDOOVOIOWOODOWOIOwa-: 
TOV TE se et Be PI ad 8 Pd ed Bd Bd Bed hg ad 


ee) 
epee 
<< 
OD—nvco 


ee 
os 
44 
83 


NO3 
MAINDEC-11-DZRMI 0/00, RAO ORIVE COMPATIBILITY. TEST MACYIL SOCIONG) 21-JUL-77 16:61 PACE 39 


21-JUL-77 15:44 BASIC DEFINITIONS 
“Eau BYTA: BITE 
N ie 1 
4. i 
c C SCPU" TRAP VECTOR ADDRESSES pas 
ESVEC= 10 is RES AND ILLEGAL INSTRUCTIONS 
“at tt Tmace TRAP 
14 $3 INT TRAP (BPT) 
i Iheu aut TRAP (IOT) #¥SCOPExs 


: ERULATOR_ TR TRap (EMT) ##ERROR## 


# : Bid KprpoerO VECTOR 


fe ee an PROGRAA INTERRUPT REQUEST VECTOR 





-SBTTL RMOZ REGISTERS 


-SBTTL RMO3 DRIVER COMMANDS 


poi be 


ery 


: IVE 

at CK DATA 

;WR CK HEADER & DATA 
WRTDAT ;WRITE DATA 
eRTHD ;WRITE & DATA 

;READ DATA 

;READ HEADER & DATA 


-SBTTL TRAP CATCHER 
20 





5p RRRRRRREE ER ELEL EEE ERLE SLES EERE RERERERERERELARE RELA RRRRE EEE 
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1694 LOCATIONS FROM 4 - 776 CONTAIN A “.+2,HALT™ 


ie cat cate be ARS PROT vengeD VECTORS 
Sar emcees) EROS SUP SEUEE 


16 
-SBTTL STARTING A (E 
IP QNSTART :;JUP TO RANGE TA cave mt BUS RBORE SORES 
eee intra 


—— 


S55 


3 
SBS 
a2 





Na ;SECOND PASS STARTING ADDRESS 

J asSTART2 

~SBTTL ACTI1 HOOK 

; eat ey Arrieta 51 eermpnpeeetngigg imtennemec unmade ner mamccerneys 


Seen Sans 


710 HOOKS QUIRED BY AC 
7 000224 "sSyrcs. sSAVE PC 
715 000046 Tate $2590 5;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
71s o000S2 o40000 “WORD. 40000 532096 LOC, 82 TO 40000 
217 001100 ag}! “i 
21 .SBTTL PARAMETER BLOCK 
RRB G GGG ERE REE REE ERE RARER ELAR AER KEE 
et LOCATIONS 24 AND AND 44 AS REQUIRED FOR APT 
33 KEELE REREELREES PERERA RERAERRERERA ERE 
oooaes a 58 BER TAIL TO POINT TO START OF PROGRAN 
000024 200 33 
oooo4y ot 100 spe tHor i! int 18 fet FEROER B ROR BLOCK poe: 
001100 .2.8X 3: OCT ION COUNTER 
» | HHHHHHIBIHGHHHHE I HHHHBHHHHHHHHMEHHHHEHHHHHHHHHHNBUHEHHHHE HEHEHE 
: AP BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 


om FS Ben Re PD tlt HWS 


Ten OF et eeee! 


aoe AS be 
Gaara - SUNTIN, oi HR ONAL wane ist $) OF A Pa A Apacs FOR EACH AOD! TONAL UNIT 
001114 


ps feo bs Ge fs be 
bh bb bp fe 


nor zhss 


‘Biawo-sMit ;sLENGTH MAILBOX-E TABLE 


Be be 2 fear Peo bm pe b= Fa fe Bo be be fe be Bet ee he be fee bem Be bt fe ee bo fee P= fe pt ee ee ee foe bes fe Po Bee ee 


SIRIRRISRS STOR TONES 
if 
g 
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ayarnw? ea 


At ; ;CARRIAGE RETURN 


‘ «le 
: Ee |! . 
‘ASTTL APT MAILBOX-ETABLE 


¢ -MG SE SE SE Si 96 SE AE a SE a a a a aa aa aaa aa a a aa a a aE 


1741 .SBTTL COMMON TAGS 
1743 3-H Mb ME HEHEHE SE ME SE ME SAE 0 0S 
1744 TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
174s ATs 
is .=TAB.XY 
1748 001114 SCMTAG: ;;START OF COMMON TAGS 
1749 001114 . WORD 0 
1 001118 STSTNA: ‘BYTE 
rs BLM Fst Es 8 
753 lige : -WORD 0 
Fee Bol iSe : HRD OD 
eA 901130 SITEMB: Me 0 
ate ae eC: , 4 
Fea Batts : OB 
761 001149 $cD0aT: “WORD OO 
Oats 1006 sap: “toad 5 
Bol is SAUTOB: ‘BYE 5 ; AUTOMAT CATOR 
001151 000 SINTAG: .BYTE 0 + autora Nooe Oi éaton 
pot ies reaect SUR: “toRD Sour ; ;ADORESS OF SWITCH REGISTER 
Bis a tale eae a \ pitenens 
J 9° 
Bie 177 eps ee Qi a pe 
1166 177566 STPB: 17736 pias. 
9 SNULL : a ! CONTAIN. OF 
ate a SIL: Be a” a eee A tees 
OBL Fy onon00 Sree: 0 Bit Peat 
1176 SESCAPE 
st sais 
Ol SLF: 


Bae 
# 


5. 
oon 
ru 


ie 


NA 
r 
fe 
% 


BESEIRATBRAB IIA SINISE UR TER. 


ee ee Bae bat Ps Pe ee Pe Be ee Be be bb bo bh bbe bo be be be ee ee 


'ALIST Me 
1 ; 
792 . EVEN 
793 shart: < ; ;APT_ MAILBOX 
oge Seta; “WORD ROEM, {JPA ERROR NUROER 
7% STESTN: .WORD ATESTN ;;TEST NUMBER 
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pefhVl1 SOCOM) 21-JUL-77 16:51 PAGE 42 


SEQ 0041 
(8) IF SO HZ SYSTEM 


ayer" 
1 eee 


ATUS 
ane 


me ge 


S33sass°.5" 
Sacer 





ee 3 : 


aey 
gre auc: - 


cnonsnsnencncnsnenened Soon roieters 


iy Cet fis 3 meee oltgttets g_ 
geese Ebses be |O GbSceSceSeseses | SSSBSSESSESS 


2 fecal... iinet eee 


PESCRyPT]ON wonpes 


Sg SERBS ROSE Ueoees Seoeetaran eee 


<2 =] GAO «| RRReR Manele 


od oe OH) 8 ee ed ed eed od hh Od ad ad ed eg 


88 8 SSSSSSSS8esesess  sesesesessse 
S prrecuacimse Riera a sinus eae eee ee a 
a et et wt tt ot 
@OBoOwmoaowma 


a ad a ad a ad he ad ed a hd a a a ad dd et Od tt 
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Piirinse tat eich Sit iia RERRRARELA te sabe dubai uri 


Oe be te pe pe ee ae ae Be ae Be Be Be a ae ee ae ne ee ae Be ee be Be ee Be Be be ee eh Pe he ee Pe 


C-11-DZRMI RMO3 DRIVE COMPATIBILITY TEST MACY11 30(1046) 21-JUL-77 16:51 PAGE 43 
ll 15:44 Mee HATLBOXCETABLE sanding 
DRIVE = SUNIT ;DRIVE_ 8 STORAGE: ERRORS 1-5 8 10 
ATTN: “ATTN REG & 10 
=? RETRY & For alt 
Ie : Gel Hh 
CFLAG: 


cee 999.) 


ae COUNTER FOR ONE SECOND) 
sr TEST 6,8) 





Nae TReR ER aEReRaRS he 
ae 


PH = aa Pas be Fon en Ft HF feo P= pe eS be = he bao 


ae 

aie, yeu und Fs Fearn an cr 

CYLIMT: ‘CYLINDER ADORESS LIMIT FOR RMO3 
FAULT: 3=1,IF ALL DRIVES NOT COMPATIBLE 


-SBTTL COMMON PARAMETERS 


.SBTTL TABLES, CONSTANTS, AND VARIABLE LOCATIONS 
| 771 RAR IRR RRR eNNN URE 


PISTED ae SPECIFIES THE SECTORS TO BE WR 
i a nee ORI ACH “ih One 0 0Ck, = ap ls BL THO. SECTORS IN ONE 
16 CYL WRITE-CURRENT 


1376 000 017 015 LOGO: .BYTE O0,15.,13.,10.,6,1,11.,4,12.,13.,9.,14.,2,5,7,8. ;DRIVE O 
1401 Ole 006 001 
1404 013 004 014 
1407 01S O11 O16 
tut It 00s 007 
141 Bat 000 016 LOGI: .BYTE 1,0,14.,11.,7,2,12.,5,13.,4,10.,15.,3,6,8.,9. ;DRIVE 1 
14e1 013 007 002 
Se Bt 
4 Obs Boe 010 
D014 02 001 017 LOG2: .BYTE 2,1,15.,12.,8.,3,13.,6,14.,5,11.,0,4,7,9.,10. ;DRIVE 2 
001441 014 010 003 
1444 15 006 O16 
1447 013 000 





8 
8 
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MAINDEC-11-DZRMI A0/00, RNOZ 
OZRMIA.P11  21-JUL-77 15:44 ABLES, CONS 
1903 001455 012 


wOoDWowow 
des foes Oe fee Bes = Den Be Bee 


NCWE£UIUH-O 
5 
SIate 
NE= 
tet tatt 
til — 
oo 
oO 
——O— 
osc 
fad =8=88 
= N 





001476 003 LOG4: -BYTE 4,3,1,14.,10.,5,15.,8.,0,7,13.,2,6,9.,11., 12. 
! 1 18 oi6 DOS 
1 nee 
1 002 
3 006 011 013 
014 


LOGS: .BYTE 5,4,2,15.,11.,6,0,9.,1,8.,14.,3,7,10.,12.,13. 


ht 
==8 
Ww 
BERR 
-_ 





o 

_— 

Oo 
oo 
— 
MQ 


BenS 
3B 
S888 


o 
me 
<£ 


LOG: .BYTE 6,5,3,0,12.,7,1,10.,2,9.,15.,4,8.,11.,13.,14. 


1 

1 

1 

1 

1 

1 

1 

1 

ies Ble 

1 1 

tes Bisel 

1 

1 

| : 

1 001 O12 

1931 S47 011 017 

1 552 010 013 015 

x Ob? 006 004 LOG7: .BYTE 7,6,4,1,13.,8.,2,11.,3,10.,0,5,9.,12.,14.,15. 
1 1 010 

1 1 002 013 003 

1 567 Ole 000 005 

1 Of 014 016 

i S Oig 07 00s LOG8: .BYTE &8.,7,5,2,14.,9.,3,12.,4,11.,1,6,10.,13.,15.,0 

1$ie 003 014 004 

1 1607 013 001 006 

i isis Ole 015 017 

1 oh 019 006 LOGS: .BYTE 9.,8.,6,3,15.,10.,4,13.,5,12.,2,7,11.,14.,0,1 

1 1 01 Ole 

1 004 01S 005 

1 014 002 007 

i 013 016 000 

1 We O11 007 LOGIO: .BYTE 10.,9.,7.,4,0,11.,5,14.,6,13.,3,8.,12.,15.,1,2 

1 rary oo4 000 013 

ie! Bien «fe BS 

| oF a 

1 0 O12 O10 LOGI1: .BYTE 11.,10.,8.,5,1,12.,6,15.,7,14.,4,9.,13.,0,2,3 

1 1661 001 014 

et Bigs Sea By 

ge i BE 

1964 001676 014 013 Dll LOGI2: .BYTE 12.,11.,9.,6,2,13.,7,0,8.,15.,5,10.,14.,1,3,4 


GO4 
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=6 
D 





1 002 O15 
1 000 010 
1% 017 005 Ole 
i 16 001 003 
1 4 12 LOGI3: .BYTE 13.,12.,10.,7,3,14.,8.,1,9.,0,6,11.,15.,2,4,5 
1 oh pte ae: 
1 10 001 O11 
1 000 006 013 
137 017 002 004 
197g 16 g15 013 LOGI4: .BYTE 14.,13.,11.,8.,4,15.,9.,2,10.,1,7,12.,0,3,5,6 
1 1 017 
1 Oil 002 Ole 
1 1 001 007 O14 
i 000 003 00s 
1383 1 O16 014 LOGIS: .BYTE 15.,14.,12.,9.,5,0,10.,3,11.,2,8.,13.,1,4,6,7 
1 11 005 000 
1 1 O12 003 013 
1 002 010 015 
1 1 001 004 006 
1 0 007 
1 
! ooo000 ASNLST: .WORD A BIT SET IS AN ASSIGNED LOGICAL DRIVE 
ise oo0000 ASSGNI: .WORD A BIT SET IS AN ASSIGNED LOGICAL DRIVE FOR PASS 1 
1933 000000 ASSGN2: .WORD 0 A BIT SET IS AN ASSIGNED LOGICAL DRIVE FOR PASS 2 
i 000020 SYSADP: .BLKW 16. ;SUB SYSTEM ADDRESS TABLE 
! oo0000 TABLEX: .WORD 0 ;CURRENT SELECTED SCORE BOARD 
1999 ;SCORE BOARD TABLES 
: TABLE OF OVERWRITE SCORE,NEGATIVE OFFSET SCORE 4 
000 000 OVWNO: .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
000 000 
000 000 
000 000 
000 000 
000 000 OVWN1: .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
000 000 
000 000 
000 000 
000 000 
000 g00 OVWN2: .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
Bo «BOD 
000 000 
000 000 


O4 
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OVWN3: .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


—RR 


OVWNY: .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


et be te bem et pm hw fe bh ee em be 
- = 
=]- 
= = 


Ft td tebe, 
8 =}=4= 
BSs5 


; TABLE OF OVERWRITE SCORE ,POSITIVE OFFSET SCORE 


OVWPO: .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


1 
1 
174 


OVWP1: .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OvwPe: .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


OVWP3: .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


SBESS BEEBE BSEE8 s8Sk8 


BSSEE8 SSEB88 SSSSE8 SBs8ss 
BSS88 BSS88 BE8E8 SBE sskse 


=} 
sts 


OVWPY: .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


;TABLE OF READ SCORE,NEGATIVE OFFSET SCORE 
RONO: .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 





DaANIA.PLL e1-JWL-? 





RF 


al gudaekantnekemtanl 
NOU LWT 


ae a Ge Penn Bem Gee fs Bem fn §8 be bas bee Bee Bm fh em Ba bs Bm Bae = fr a mb ba be be 





BES BS88e 
SES 88888 


++ 
t 





= 
++ 

= 
++ 


UU 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
O00 
000 
000 
000 


BS 


8 88888 S888 


RON1: .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


RONe:  .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


RON3: .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


RONY: .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


; TABLE OF READ SCORE,POSITIVE OFFSET SCORE 
ROPO: .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


ROP1: .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


ROP2: .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


ROP3: .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


ROP4: .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


SEQ 0046 


JO4 
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SEQ 0047 
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3 


TABLE 


44 


Oo >: 


ot HE RE ie” * 


-BYTE 0,1,3,6,10.,15.,5,12.,4,13.,7,2,14.,11.,9.,8. 


& mw 
ua 00000 ae 
3 eee 
a eee 


ST 
YLI 


e888 g3ats 


; TABLE 
SELFO: 
SELF 1: 
atte: 
SELFa: 
716 C 


S888 88888 83282 
-_— -_ 
ooo0o 

=|= INDO 

=i mieten) 

2c [alo] o) 


cs i ee 





_ 


Seer eee eee eEy 


8 4 4 4 9 4 004 4 4 4 4 4 4 0 


SSSSSSSSESSSSSSS 
5 &5 5 9 95 95 95 9 9 9 9 9 9 Os OS 


peg re re re re re re re re re rere rere rare 


SE ccccccceccceeee 


“4 O-mUMTNwr. 
$ SSSOs ESS SSSSSS5S5 
ollie l-el-el=sllsl-elsel-plaslslesles) 


eee Segegsesusgsess 





-EVEN 


OFFCOD: .WORD 


0 


- EVEN 


-WORD 066666 


STNDAT: 


002642 Ob6666 


BOBBESSSS SST PPS PT RGNRARRE RA BSsSSSLBBORARRRRE RRR SasBa owas 


a th a a a a a a dd ad dt ad mt td tt 


cucucucucucucucucu Cu CuCUuCucU CucucuCuCuCuCuCuCuCuTU 
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-WORD 155554 
133331 “MORO 133331 


SSID EARDEGSEGERANSSRSEEGS | 


aaa 


Ree SeiRai coed | 


114 114352 
ue 017310 
011347 011347 
1 7 102367 
7 Aprsa, 

1 1246 
160073 160073 





5 5 EAE AE SESE EMEA SESE AE HEHE HE HE HEE HEHE HE HEE HEE REE E EEE RE EELS 


DRIVE COMPA ITY T Y ( ) 21-JUL-77 : 
TBI ITY oth wae ue 21-JUL 16:51 PAGE SO SEQ 0049 


-SBTTL ERROR POINTER TABLE 
;#THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN 


otal Ton OR Ge A i 
Tes: STWR 1h Glo MEDS POUR BERGHE os rows: 


a" EM ;;POINTS TO THE ERROR MESSAGE 
# BH 5 SPQ INT TO pate HEADER 
;# T ;;P0 T TA 
I OF ;;POINTS TO THE DATA FORMAT 
SERRTB 
;ERROR 1 
oy ;RH70 INTERRUPT OCCURRED (RMAS = 0) 
OT1 
OF 1 
;ERROR 2 
343 ;UNEXPECTED ATTENTION OCCURRED 
DT2 
DFe 
;ERROR 3 
ihe ;MASSBUS PARITY ERROR (MCPE=1) 
DT3 
DF3 
;ERROR 4 
an ;MASSBUS PARITY ERROR (PAR=1) 
De 
;ERROR 5 
FS ;ADDRESS PLUG BIT CHANGED 
DTe 
DFe 
;ERROR 6 





Ee ;RH11 DIDN’T RESPOND TO ADDRESSING 


-OZRMI RMO3 DRIVE COMPATIBILITY T. MACY11 30(1046) 2@1-JUL-77 16:51 PAGE 
21 $ POINTER TABLE _ wer dirmes, 


pois 034732 OT6 
035012 OF 1 


;ERROR 7 , 





;ERROR 12 
0 P 
pris 
0 


-SBTTL SETUP AND INITIALIZATION ROUTINE 


f 
















; START ADDRESS = 200 

: ADORESS TO RH11 UNIBUS ADDRESS = 204 
i 000400 001332 START: HOV #400, CHGAOR 200 START ADDRESS FLAG 
se! 177777 001332 START1: MOV 8-1, CHGADR 5204 START ADDRESS FLAG 
53 00a poy 
ke 1 001332 START2: 220 START ADDRESS FLAG 
¥. COMMON BRANCH POINT 
oe STARTS: RESET *CLEAR THE BUS 

NITIALIZE THE COMMON TAGS 


+ + 
rw uly 





tad had Ladhadead tad tadPead Gad ead! 


‘ 001114 MOV AG, Ro FIRST LOCATION TO BE CLEARED 
ry CLR (Rb)+ ° He MEMORY HOeaT TON 

530 001154 CMP SSWR,R& ;;DONE? 

c: 001100 BS oasfacx. sp ss fo Frat? pornTER 

: ;; INITIALIZE A FEW VECTORS 


- GL SSR amen TR SRGPEREEDNY, HGR rT" Fo Swe rou 


NOY 
-11-DZRMI AO/00, RMO3 DRIVE COMPATIBILITY TEST MACYI1 30(104%6) 21-JUL-77 16:51 PAGE S2 
21-JUL-77 15:44 INITIALIZE THE COMMON TAGS 


Rey SETAE. i7BNEL 5 VECTOR FOR ERROR ROUTINE 
7 












“TRAP VECTOR FOR TRAP CALLS 
By hs r teh ranure VECTOR 
MOV , SEOPCT Hear, =PROGRAM COUNTER 
tite. ee 
99 
te th Eee! tatop) Route: mi ASR" OR RTT. 
e ps Hoy SSMS OTHLIVES $3 +" BIT VECTOR TO SRTRN 
9 
ee RB! EUEEec thy BB Pat 
5746 003274 HOY 64S, -(SP) Hoy pes 
ile 000006 B4S: aR #RTT, SRTRN ssRTT IS LEGAL--SET SRTRN TO A RTT 
Pere 19 658: R00 al - aH He ee ee THE STACK 
127, ae ; N 4 Tiel ize the MIT ness FOR SCOPE 
003330 3’ i 
Fe age ee a a 
MOV Bede SEGARVEC *:SET UP ERROR 
1 1154 MOV aS SWR 33 PROWARE SWICH REGISTER 
1 O01] MOV #0 ISP, DISPLAY 536 ietoute ua 
BNE 698’ poms IF NO TIME OUT TRAP OCCURRED 
BR F 
ome sors, syle) HEPDIDhe ipa 
RTI 
176 OO11SY 68S: s oanee TO SOFTWARE SWR 
TE ee ee eee Dep a soRe ERROR VECTOR 
eae 001231 errs ser TSize, SENVM Bie at SIZE UNDER APT 
Q 70$ SWITCH 
001232 001154 mit MOV #SSWREG, SWR :3NO,USE APT SWITCH REGISTER 
poe SE MY RIRUNESSs RNS Fin AAD os 
‘ BNE is. ay IF NOT 
TYPE TI c R 
Bicdes I$: oat IR ae Pc ye site ie ete INTERRUPT 
oooo42 TST ane HE RUNNING UNDER XXDP/ACT? 
BNE rt} 3 s 


SEQ 0051 


z 
PEELE EY CECE LP EPR TRUE LORE PEE EE EEPREE TEEPE PEED O CET OO BE 


- -—l = be 


AtAtAtA 
Tt 1 


7 


F 





a PS 
ata 





001230 
001154 


000001 
000176 


001150 


023100 


BOS 
Hy SER,OUVE COPRTEAT ET, FTG MOW ARM cKbiaR ” ST Pe se Le 


CMPB , al j}ARE WE RUNNING UNDER APT? 
a i HF 
, SSHREG HE SWITCH REG SELECTED? 
BNE 7e$ $3 Fie 
a 725 33 SETTINGS 
71s: MOVB 81, SAUTOB ;;SET AUTO-MODE INDICATOR 
— é + RH 
oy RNee Ree Rutt FPR ER ores 
2s MOV SASNLST, RS START OF AREA TO CLEAR 
3$ CLR (RS)4 
CMP 8INOST, RS ;LOOK FOR END OF CLEAR AREA 
BNE aes ot BR IF NOT EINE 
CLR B ‘ OEE AR tte yi ‘TUS WORD 
HOV HZ, SIXTEE iA Bea he wie SECOND COUNTER VALUE 
ch g COND eect # COUNTER hi 
CLR ibe ‘CLEAR 3 y C’ FLAG 
sROUTINE TO DETERMINE BUFFER AREA SIZE 
SIZMEM: INC 8-1 i SEE IF TINE TO SIZE MEMORY 
BNE 1S BR IF NO 
Is: FV SLETADtsT@D = Save Tre LasT AODRESS, 
CMP L AO. bIeoGRO : 
BLOS > NO DON’T SET THE NEW LIMIT 
MOV $160000,LSTAD ;SEt NeW LIMIT 
2s SUB #1500.#2,LSTAD ;SAVE LOADER AND ABSOLUTE LOADER 
: SET UP THE OTHER SYSTEM DEVICES THAT 
: THE PROGRAM WILL USE 


SETVEC: JSR PC, CKCLK ; START THE CLOCK 
MOV a-1, SAVEFG SET THE REGISTERS FLAG 


;SETUP IF *XXDP’ OR ’ACT11’ OPERATION 


MONTR: CLR R1 ; DRIVE ¥ 
CLR R2 : It TABLE INDEX 
Is ae (R3).RO IPGAD DPS RODRESS 
+ OR RO ORT a Opa BL OcK 
2S: or (R3)+, (Re)+ jINCR NT INDEX 
iN #7,R1 ALL one ASSIGN ? 
BGE 1S ; 


en OP HOT TEA itis vesiaen 


T 
T 
SGN1: SPECIFIES THE LOGICAL DRIVES WILL BE TESTED IN PASS1. 








r 
8 
: 


Sees 


Oe hee eee or 
ow 
= 
= = bo pe pe pe 


ee 
£ 
eS Bae 


Ea aa a 
a 





S, Poe tet WL Tet ey sie) fT 16:51 PAGE S4 SEQ 0053 


iS 


000101 


023064 





001272 


001222 


MOD21: 


1S: 


ASSGN2: SPECIFIES THE LOGICAL DRIVES WILL BE TESTED IN PASS2. 


The Ook fons DRIVE HAS A HISTORY fro SPiva In THe HISTORY FILE TO 17) 


(A TO H) yA 
Tom Te he SYSTEM NAME (A TO PHYSICAL DRIVE NUMBER 


THE Sub-SYSTEN HM BODRESS AN NTERRUPT VECTOR ARE STORED 
IS RO Syoeoa Coe, UBSIETER Bet Ile SOA Hal WORD 7 atime 


THE LOGICAL DRIVES ARE ‘SSIGNED FROM CONSOLE KEYBOARD. 


MOV T,RO ST oot te MAPS IN RO 
OR bTROST, A itier Ropwess T MOINTED ADDRESS 
CMP sR, RO foe 
BHI 1 :NO, THEN BRANCH BACK 
MOV #’A, SCDW2 : TEMP STORATE OF SYS NAME 
CLR DRIVE TEM STORAGE OF PHYSICAL DRIVE BIT MAP 
TYPE eee ; SUB-SYSTEM 
TYPE  ‘SCOW2 "A TO H (ONE OF THEM) 
TYPE ,LINSP 
T RE SGe ; DRIVES 
ROLIN ° pie. IN THE DRIVE NUMBERS 
MOV (SP)+,R1 THE INPUT LINE ADDRESS 
T 1 Ri) 
ISR RS, CK.OCT ihe ft TO 7 saan VALUE IN Re 
ISB Bg Sad ene ROPER NTE 
Ret NUMBER FROM x. ot ve 
INC Ri : OF INU NOT Ine 
TSTB ss (R21) STRING ? 
PApB i (R1)+ MUST BE A 
BNE mob? 1 iE AGAIN .IF NOT 
ER 1$ Re ORIVE 
TST CHGADR SPORT aT 200 ? 
Boy SCORE. RI eran P&C 1 FROM A TO H 
BIC #177760,R1 LEFT ONLY 4 BITS 
DEC Ri "ADJUST INDEX VALUE 
ASL Rl 2 WORD INDEX VALUE 
ABD #SYSAOR, RI sys ADDRESS TABLE ADDRESS 


DOS 


MAINDEC-11-DZRMI RMO3 DRIVE COMPATIBILITY MACY -77 16:51 PAGE SS 0054 
DZRMIA.P11 21-JUL-77 15:44 GET VALUE Fi Sof Tinne Sot Nee FeTER” _ 
MOV R1, SCOW1 ; SYS ADDRESS TABLE’S ENTRY TO CDWI 
3$: BR mobe3 3 
mMOoD23: TST DRIVE sCHECK IF ANY PHYSICAL DRIVE(S) ASSIGNED 
BEQ BRANCH IF 
1S: MOV 1,RO : SYS TABLE ENTRY 
MOV (RO), SRMADR : 
001276 MOV g } ies VECTOR 
JSR > CHE yITH T THE OPERATOR 
cove EY BUNRSStRly Hey WER Ra tng noe 
2s: oR. MODII ’ BRANCH Y NEXT m0 
mMOD22: 
002004 3S: MOV SRMADR,SYSADR _ ;LOAD THE SYSTEM ADDRESS TABLE 
002006 ie HOV SRHVEC, SYSADR#2 ‘LOAD THE VECTOR 





BNE MOD30 ;BRANCH IF ANY 
001776 moos0: ae prrifcust ERATE LOGI ORE S HAS ASSIGNED ? 

So cs’ ives ta pe? NEW DRIVES 
MOV ASNLST, RO iFOuNe BVAILABLE LOGICAL DRIVE LOCATION 
MOV #1,Rl iST FROM LOGICAL DRIVE 0 
CLR : NOEX 

1S: BIT R1,RO :15 LOGICAL DRIVE AVAILABLE ? 
BEd 2s : YES 

Ri p 2 are a 

BCS Eg S$ Avn AVAILABLE 
ADD #2,R2 
BR 1§ 

2S: MOV (R2), RY ay NESTORY FILE 

000014 MOVB CRY} 
BIS I, T ASSIGN BIT 
BIS R1,ASSGN1 
AY tC PHYS 
tve, fh ci ICAL DRIVE 8 

MOV 81,R1 :ST 
CLR R2 :DR 

3s BIT R1,RO :1S THE * PHYSICAL DRIVE ASSIGNED 


MAINDEC-11-DZRNI 


OZRMIA.P1l = 2i- 





oe 


A0/00, RMO3 DRIVE COMPATIBILITY TEST 

JUL-7? 15:44 GET 

001005 BNE 
CLC 


Ca 
Ba 
— 


— 
y 


1315 





Gat Bae fe eas 
bas as bee ee 


tf pa 
#9 
—t—1 2) 


a 


2 


<£ 


000016 


001776 


001272 


001272 


4§: 


SS: 


6S: 


7$: 


VALUE FOR SOFT 


OAR ORGIES BIE BgUaspaesEs 


S52 AOC" 


4$ 


3 


tte 


E 


EQS 
MGM RUBS ef” ts rae 


Boule 
re ICAL DRIVE # INTO HISTORY FILE 
a aac : 


;CHECK OTHER SUB SYSTEM 


Then] FO pont Ce DRIVE HISTORY FILE 


— LOGICAL DRIVE ? 
THE HISTORY FILE ADDRESS 
HON THE SAME SYSTEM ? 


i THE PHYSICAL DRIVE # 


; INCREMENT TO NEXT LOGICAL DRIVE 


iB MAP OF THE NEXT LOGICAL DRIVE 
if ALL LOGICAL DRIVE’S CHECKED 


;0N 
;SUB_SYSTEM 
; ATOH 


; CHECK -— i 3 SYSTEM 
. YES GHT SUB SYSTEMS CHECKED? 


ir gre se 
i CHECK THE FIRST CHARACTER 
; "TE OT an SYSTEM 
PSTART AT 

YES, EXECUTE PASS2 ONLY 


‘CLEAR THE PASS1 BIT MAP 


SE@ O0SS 





MAINDEC-11-DZRMI AO/O0, RMNO3 DRIVE COMPATIBILITY TEST MACY11 aot ie 1-JUL-77 16:51 PAGE S7 


DZRNIA.P11  21-JUL-77 15:44 GET VALUE FOR SOFTWARE SWITCH REGISTER 
ig 004560 000137 006772 IMP XPASS2 sBRANCH TO PASS2 
18 


Sa GBbeRSS Ge Hie Convent LocrGA. DRIVE: hsrory FILE 
Re, ; CURRENT EEA Tcl cae pkives 


ee oe 









002000 XPASSI: TST 1 I FOR PASS 
Bi 002 ge |Oie orev YF If fey 
1 32 JMP ENDX1 ; 
aan eS aR 
1 OC 1270 me OCK 0 
Leet ties Guess ©” Eenec ‘ieset A, TMTERT YERTO 
Herre Bees ek MMAROMe 1, he Hier CEE 
1 923076 MOV SYSADR - *LOAD SYS-TEM A INTO 
| hee 4 RMVE e 
138, toy RI’ Rt LOGICAL BLOCK 1 
1 016222 MOV aI C ;RESET ALL INTERRUPT VECT 
CLR aRHvE Cte ;CLEAR THE INTERRUPT L! 
Nee 
1 »MESG3 
104401 001205 TYPE  ,SCRLF 
iGo Bieze ee Oe, 
at Ti 1 tR1), DRIVE ;LOAD THE PHYSICAL DRIVE 8 
a 111146 MOVE = (R1),-(SP) “TYPE THE DRIVE # 
= 1 TYPOS 
BYTE 
104401 036121 TYPE ,LINSP 
104401 035127 TYPE  ,MESGS 
104401 001205 TYPE | SCRLF 
104401 142 TYPE  |MESG9 
104401 036121 TYPE ,LINSP 
744 jou 2s: ROLIN se ; CHECK IF 0.P. READY 
ee 000122 cee aR, (Re)+ Heer 1 OMA TER 18/8 “RY ? 
373 TSTB Es: CR) POT OW 48 ? 
ser 7s boraz BNE 2S 'BRANCH IF NOT 


MAINDEC-11-DZRM 
OZRNIA.P1l = 2l- 


cers ONE 


< ye 


Ko eS ESS 


tee 
bee 


= be 
oO 
S 
tl 





bee 





ae hes Pe Pe ee 


ZIFRELE 


i 
+ 


BES & 
Sas 1 


SV8888 
P= Dee he fb fe 
ODONGPUNL WO. 


eb 


Soot 


_ 


B 


geaaaaaaa iar 


173742 


4§: 


err moe T 
VALUE FOR SOF 


JSR 


Bag 
rs 


PRut 
o-4 


42 2988 


GOS 
peer) SORE) GLcIL-77 16:51 PRUE 58 


; INITIALI 
Ta Be Se 


Fd 

i 

: 

: NOT 

ever 

>SET UP 6 RETRIEVE THE BAD SPOT FILE 
; T TRACK 

9 

, 


. 
rae 


3 
; 
os READ DATA COMMAND 
CALL THE OR 
IS NOT SUCCESSFUL 


esa 


i Ne 


fe SPOT FILE Ponds 43 Berane pe eves IS STORED 


fe Oar ee 


iR4 ADDRESS e ~~ SPOT FILE 
OF BAD SPOT FILE ? 


OF B60 SPOT FILE ? 


;3RANCH_IF IT I 
gee Fgh it NP iB Tes 


“EME 


; BAD 
; LOOPING 
;SWITCH 7 SET ? 


SEQ 0057 


ooo 
be ee pee 
oO 
r- 


Sr 


SRSRRSTEEAEEPESE SESE EES ERED EE ESEPSRSRSSSP ESSE? 
mroog panrenmnaan ne 


t= 


8 
i 


sae 








RMO3 ORIVE COMPATIBILITY TEST MACY11 30(1046) 
: GET VALUE FOR SOFTWARE 


ee 


000017 


000017 


001154 


10S: 


118: 


SPOTX: 


41S: 


4§: 


Ss: 


21-JUL-77 16:51 PAGE S9 


SWITCH REGISTER 
,MESG11 PACK NOT ACCEPTABLE 
8BIT7, aSWR 7 SET? 
Bed 11s ’ om IF NOT SET 
JSR PR TEAS ole SPOT FILE 
IMP KPASEI START price 1 


FT COR PONTE TDF Ti, TE 


173 ae Aig tu 2 288, Witt de 582 Berens 7 s~800 


JSR RS, ;R4=POINT TO CYLINDER NUMBER 
RET2 ?NORMAL RET1 

MOV R1,-(SP) SAVE R1 THROUGH R3 

MOV Re, -(SP) 

MOV R3,-(SP) 

CLR R3 ; 

a ds 

LR ~(85} eet ats ADDRESS 

MOV #7, -(SP) ;SE 

MOV #17. -(SP) PRT IHG ADDRESS 

MOV #7,-(SP) 

MOV 112. Ri RTING_ADORESS 

MOV #6 ; 

CMP (R4), RI nurees 

BLO 3$ Nie 

ADD #15. ,R1 }CHECK WITH THE UPPER BOND 

CMP (R4);R1 

Hg ro 

BI #81T1,R3 : ERROR FLAG 

SUB #15. ,Ri TO THE 

bec Re ‘ IDEGREFENT Te E SearenT COUNT 

ADD #128. ,R1 eon 

BR 1§ : OIUET ae Tearing f P OPE RENTS ARE CHECKED 
MOV (SP)+,R2 ;POP THE NEXT SET OF ZONE PARAMETERS 
MOV (SP)+°R1 

TST R2 DUMMY PAIR 

aT OAL BONNY PAIR 

BNE it} + BRANCH ts NOT 

CMP (R4), #620. ON CYLDER 620 ? 

BNE : 


MAINDEC-11-DZRMI AO/00, RMO3 DRIVE COMPATIBILITY TEST MACY11 30(1046) 21-JUL-77 16:51 PAGE 60 SEQ 0059 
OZRMIA.P11 21-JUL-77 15:44 GET VALUE FOR SOFTWARE SWITCH REGISTER 
OOSHOg 052703 000002 BIS #B81T1,R3 sSET ERROR FLAG 
4 005703 6S: TS R3 : ANY ERROR ? 
Boils ooo002 ENG RS FS yer FOR NORMAL RETURN 
12603 7S: MOV (SP)4+,R3 RESTORE R3 THROUGH R 
1 MOV (SP)+'R2 
Hoy (SP)4)RI 
Ss ;EXIT 
00s432 104401 001205 ENDX1: TYPE ,SCRLF ; 
38 104401 036424 TYPE *MESG2! DRIVE NOT ONLINE OR NOT ASSIGNED 
900000 HAL ; T FOR DEBUG 
000137 000200 @8200 RESTART IF DESIRED 


i 

DE ror 1gg0ine FOR TEST 1 THROUGH TEST 4 
; SCOML : TS ODRESS OF LOGICAL DRIVE BLOCK 
en 
Sys 


CICA DRIVE #017 0 wag 


PELLELLLGLRPReRPRRee erent gE 


1 . 
ST : ASSIGNED LOGICAL DRIVE MAP INDICATOR 
; SCOW2: 

2810 ;SCOW2, DRIVE ARE ONLY CHANGED IN TST1 ee PASS 1 
sols ; SDEVM ,ASSGNI, SCDW1 ARE CHANGED BY THE TEST 4 
2813 
2814 
2815 

: 

8 ;TST 1:DIRECT OPERATOR TO MOUNT AND LOAD PACKS 


«Sk 36-36 6 Me Se SE aE SE SE Sa a a a a aa a a a a a a a 


téT1: SCOPE 
MOV a1, L fein 3300 1 retreat ON 
SOV too 4 ALT Fhe Ki BER POINT 
CaP Ea oan + ORICA zi 
BEQ + THEN EXIT 
MOV $row 8 1 SRI=LOGICAL DRIVE 9c PpORESS 
CHP (Ri), SCDW2 LL On THE 
MOVE (R1), SCOW2 i” Te SUB SYSTEM NAME 
MOV SIDLEX, ORMVEC ;RESE INTERRUPT VECTOR 
CLR aRMVECS2 “CLEAR THE INTERRUPT LEVEL 


;## STARTING PASS 1 ## 
» MESGE ; ON-- 





44 


3333 
a 


MAINDEC-11-DZRMI AQ/00 
DZRNIA.P1l  21-JUL-77 15:44 


SHELL IE EES 


— 


des 





pe 


ys 


a 


104401 
104401 


a = ep 


RMO3 DRIVE COMPAT 


035030 
00127e 


023076 
023100 


023036 
023040 


IBILITY TEST MACY11 30(1046) a1. -77 16:51 PAGE 61 
GET VALUE FOR SOFTWARE SWITCH REG 
TYPE  ,MESG1 ; SUB-SYSTEM 
TYPE SCOHe “A TO H 
1S nove th ), DRIVE ;LOAD THE PHYSICAL DRIVE # 
TYPE  ,SCRLF 
Wee a 
MOVE ORIVE,-(SP) THE PHYSICAL DRIVE # 
i , LINSP 
Ve : AND LOAD 
*MESG9 
2s: RDLIN 
MOV (SP)+.RS ;LOCATE THE READIN LINE 
CMPB sag R, (RS) + - a *CHECK IF 0.P. READY ? 
a (RS) “NOT CORRECT INPUT LINE FORMAT 
oe | SCOW2. RI SRRATE. THE’ SYSTEM ADDRESS TABLE 
BIC $770 RI : ay 4 ie 
DEC Ri : THE INDEX VALUE 
RSL Rl *FOUR WORD INDEX VALUE 
NOV SYSADRSECRID RNVEC’ LOR THRE SYSTEM INTERRUPT VECTOR 
Mee Be RE ray ti niece THE 
HOV el, g i SAVE ALL RH/RA REGISTER 
MOV bal ; CAL DRIVE 
TSTB DRVSTACRO) ON-LINE ? 
BLE BRANCH IF NOT 
TSTB (RO) :AN RMOS 
BLE ‘BRANCH IF NOT AN RMO3 
3S: BR TST2 ALL DONE PROCEED TO TEST 2 
4§: TYPE S610 DRIVE NOT READY 
BR tsTi ;TRY AGAIN 
;TEST 2 
: BASIC READ AND WRITE ouest 
+ OND poets 1S PeoKe ii © THE LOGICAL DRIVE # 
EACH LOGICAL DRIVE PERFORM WRITE AND WRITE CHECK ON 
} a °c pina crescent tana ee pes iene 
"MOV #1,STIMES ;;D0 1 ITERATION 
RY OtCEtREK Gp ORE THE eTECK POINTER 
MOV RO ‘OPE Beck SS 
MOV SCDW1,R1 “ADDRESS OF THE LOGICAL DRIVE BLOCK 


JOS 


SE@ 0060 


ALL FIVE SURFACES(TRKO - TRK4) 


MAINDEC-11-DZRMI AD/00 awl DRIVE COMPATIBILITY TEST MACY11 30(1046) 21-JUL-77 16:51 PAGE 62 SEQ 0061 
GET VALUE FOR SOFTWARE REGISTER 


OZRNIA.P11  21-JUL-77 15 

5597 se) bi37e0 i 
8 8 ie: 

155ep 





000010 


SWITCH 


DRIVE, (RO) PHYSICAL 
SDEVA’ SSEC(RO) :L9A0 THE iat p FROM THE LOGICAL DRIVE NUMBER. 


obs ROR RO) te ae 
i aan a SAVE ACL. RH/RMOG REG’S 


ingle hee STANDARD PATTERN 


"UES 
BR 
aL 
ee 
A. 


2s: . 
ames IF NOT QUEUE SUCCESSFULLY 

3S: TST tal ¥ 

BEQ ;BRANCH IF NOT DONE 

AO08 BRNO (RO) pan 0 Tre WRITE CHECK DATA COMMAND 
4§: JSR hs: 

FMTDPB 

BR 4g IF NOT QUEU SUCCESSFULLY 
Ss: ST FMTOPB+16 ? 


i 
{ BRANCH IF NOT DONE 


e238 
a 
Tk 


: SS _IF ANY ERROR HAPPENS ? 
*RESET TO WRITE DATA COMMAND 
A Tinos DONE ? se 


& 
Z 
a. 


a3 
“" 

x: 

8 


_ 


BIE ‘Eoves FOR Reso test an Pree 


OGICAL DRIVE 8 


isco OF LOGICAL DRIVE HISTORY BLOCK FILE 
f 
IVE I # OF THIS LOGICAL DRIVE 
; et OROLE-D 
; CMCNT 
> CMSEC Det TA ¢ COUN TNDER COUNT 
RY POINTER OF TABLE-D,CANNOT BE DESTORIED. 
*RO ADDRESS OF FMTDPB 
i “IN epee ers penpenmmimmaERp ore 
HOV #1, STINES :D0 1 ITERATION 
MOV t Kop itoep THe ne STACK POINTER 
MOV 060, R4 : 
MOV VM; RO LOGI 1v ‘ame 
BEQ 2s ‘BRANCH IF LOGICAL DRIVE 0 
1S: ADD #16. ,R4 EACH LOGICAL DRIVE TAKES 16 BYTES IN THE TABLE 


DEC RO ;DECREMENT THE DRIVE # COUNT, 


Oe DRIVE COMPATI ey reat pay sie) inp” 16:51 PAGE 63 









BNE pe ; BRANCH irate ger aN Pa 
1ST ut he Fates 
HOY DR PHYSICAL 
hove “NT Wiig TYE TURE 
MOV SENOPGM, SBUF (RO) ; BUFFER 
MOV SRM.REG.14(RO) ;ADDRESS T RH/RMO3 REG’S 
MOV 8- FF eel (RO) ‘oe * oH R T 
OU Pree 
MOV (R1),R4  ; TA PA 
HOV (RO), Re : IN 
RY, (RE)+ : WITH SIGLE WORD PATT 
bec R3 M3 Bond ; Boone om 
BNE 3$ *BRANCH, UNTIL IT IS FULL 
CLR -(SP) ;DUMY PAIR OF ZONE COUNT 
CLR -(5P) : TARTING CYLINDER NUMBER 
MOV #6, -(SP) : COURT 
MOV gile..-(SP) :ST INDER NUMBER 
MOV 87, CMCNT ; 
CLR CMCYL j STARTING CYLINDER NUMBER 
MOV $16. CMSEC spel NDER NUMBER 
MOV #FMTOPB, RO RO Dee AOD 
HOV oAcrt'$ (RO) Sra he 
CLRB = STRK (RO) PRTING. CL Tek 0 
MOVB (4), SSEC(RO) + OAD SECTOR NUMBER FROM TABLE-D 
ISR RO, RMO3 CALL THE DRIVER 
BR 7$ BRANCH IF QUEU IS NOTSUCCESSFUL 
TST FMTOPB+16 DONE ? 
Ey aN pa 
a (Ro) WRI SRITE TWO STOR If AME CYL CYLINDER 
ore Bur BREE (Ro) SACL Ti oe FoRe 
BHI BRANCH 
MOVB  (R4),SSEC(RO)  ;REST EE TOR t 
NCB ss SRK (RO) i TQ NEXT TRACK 
cH 84. , STRK(RO) ile 
CLRB TRK(RO) “REST ; 1B TRACK 
INC YL (RO) fo CYL INDE NUMBER 
INC RY , INCREMENT T a ENTRY 
Be eile (RO) i : i ry This Bock 
MOV SAYECAD) GHCYL INT iam THe sit fe CYLINDER het BCOEK 
or ” Mt Te IF NOT END OF ZONE 
MOV (Bers,cxcn, LOAD Neu PAIR oF O etine CYLINDER 
MOV (SP)+' AND ZONE COUNT 


MAINDEC-11-DZRMI AO/00, RMO3 DRIVE COMPATIBILITY TEST MACY11 30(1046) 21-JUL-77 16:51 PAGE 64 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


OZRMIA.P11 





21-JUL-77 15:44 
001354 


0013S2 





001174 
001336 


0142S4 


001270 


; TEST 4 


TST 
BNE 


Bre 


CMCYL ;NOT END YET ? 
4§ ;BRANCH IF NOT 
CMCNT ; IF NOT END 
4$ ;LOOPING BACK 


iipect THe OPERATOR TO DISHOUNT PACK AND LOAD TO OTHER DRIVE 


i scone, DRIVE ARE CHANGED BY TEST ONE ONLY AFTER THE TEST LOOPING TO TESTI 








Ft HH HE HE EEE KEKE KE 
. Rov #1, STIMES i400, 1 TERATION 

Nov atack SP THE STACK POINTER 

MOV Ct od THE INT VECTOR 

CLR ORMVECS2 HE INTERRUPT LEVEL 

TE ‘312 

MOV ORIVE,-(SP) 

ee 

TYPE  ,LINSP 

TYPE MESG13 

MOV $1,R1 
1S: Sap RS seve ;LOCATE THE COORESPONDING BIT MAP 

BEQ 2s ;BRANCH IF LOCATED 

foe . ; LOCATE NEXT DRIVE 

in Re t NEXT DRIVE # h 
2s: BIC 5 , ASSGN1 At Be OGICAL DRIVE FOR PASS 1 
3S: INC Re GET Ger NEXT L Alves DRIVE # 

ASL pe 

HOV PO) SCO ey one Horo THE NEW DPB ADDRESS 
us: Roun =?SDeWM init pte a : 

MOV (SP)+,RS 

ae we 

i 

ge AP 

BNE a Re ed DRIVES IN TEST 
cs: Ihe TST oe to. teste 7? 


MAINDEC-11-DZRMI AQ/00, RMO3 DRIVE COMPATIBILITY TEST MACY11 30(1046) 21-JUL-77 16:51 PAGE 65 SEQ 0064 
21-JUL-77 15:44 GET VALUE 


OZRAIA.P 11 


pa Re Bt ee he De eH PR 


DO NTN Ler - ODS VEE os 
WO VON LO 
+ 7 





od200e 
012762 
Sete 
001205 
001374 





001 
00 1 


1 


1174 
1336 


013772 


001272 
001272 


023076 
023100 


FOR SOFTWARE SWITCH REGISTER 


; XPASS2 INITILIZE FOR PASS 2 TEST 

*SCOWL : ADORESS OF THE CURRENT LOGICAL DRIVE HISTORY FILE 

H : I #0 TO 1S. 

jAsSGNe : ASSIGNED LOGICAL DRIVE FOR PASS 

‘BRIVE : SREP AOR ee Oe CERRENT RH/RM SYSTEM 

XPASS2: TST asscne s ANYTHING IN TEST FOR PASS 2 

i fia 15 02 tORe 0" OF PASS 2 

+ FAR BPE scoms — :Ropaess'or LOREAL Brock Barve o 

MOVE = 8° A SCO *LOAD SYSTEM NAME “A” on 
Rear LS ee 
MOV R *Rl OF LOGI 

; TYPE  :MESG14 ;STARTING a 
CLR FAULT 3RE THE NOT COMPATIBLE FLAG 
BR TSTS “BRANCH TO TEST 5 

;SCDW1 : ADDRESS OF CURRENT LOGICAL DRIVE BLOCK,ONLY CHANGED BY TST9 

: : ,ONLY CHANGED BY TEST S 

: SOEVM L GICAL DRIVE i 

*ASSGN2 : ASSI L DRIVE’S BIT MAP FOR PASS 2 

j DRIVE : PHYS DRIVE & 

*ASNLST : ASSI of ICAL DRIVE IN THE TEST 

‘IN TEST S DIRECT OPERATOR TO CHANGE,LOAD THE PACK 


+ 36-3636 3-0-3636 36 0-363 6 SE 2 3 3 3 3 9 9 9 a a a a 


tSTs 
AES RG APR ven 


Gio MWe the 


ScOML RL SADORESS OF THE HISTORY Ie 
(RI), SCDM2 ON SUBSYSTEM 
“THEN DOM’ T UPDATE SYSTEM ADDRESS 


(R1), SCOM2” 
S$COW2, RO ; LOCATE ADDRESS TABLE 
RO : T FOR FORM 0 
#177760, RO : ON F TS 
RO ; INDEX FOR TWO WORD 


SYSADR(RO) ,. RMADR”: 
SySAbR+2 (RO) Peek SYSTEM NTERRUP VECTOR 


SEAS’ iba THe INTEROUPT LEVEL” 


sh 


BO6 
Ne COPPA PERT SHH” est Pe 


18: 


ae ett Oot. 


: 


: 


;START THE PASS 2 


fe Gm fee fee Bm fee bee Qe 
—— 
ft fee 
be fees 
F 3 ar 


ae 5 


= 


Oe Ome De oe Ba ee be be ee ee he ee tee 
Orin mee he 
See Raa. 
cae 
=z 


4 
w 
=) 
o 


Paseeys 


a 


3 : 
“NOT AN 
; BRANCH paar IS, (NEXT TEST) 


, SCRLF 
MESG1O ;DRIVE IS NOT READY 
tsTs ; TRY AGAIN 


333am 


PHYSICAL DRIVE NUMBER 
ee THIS LOGICAL DRIVE 


Mh VE 8 
eye GIS ss 
1B SeaaT TER 
TERS CANNOT BE poor TED BY THIS TEST (TS76) 


OLLOWING RE REG’S ARE 
: ae 4 D INTO DRIVER 
: FILE BLOCK OF LOGICAL DRIVE=SCDW1 


See WRITES 7 CYLINDERS ON EACH SURFACE WITH 
pee Ta PaITER vu HAS BEEN 


CAL DRIVE ByECuTES: “WRITE CHECK DATA” TO SEE IF 
THIS VE CAN OVER-WRITE ALL DATA WRITTEN BY OTHER 


: 
: 
: 
: 
: 
, 
: 


ae | 


ee ee er ere 


— 7 CYLINDERS ARE SPECIFIED AS SOEVM, SDEVN+128, SDEVM+256 











CO6 
30(1046) 


21-JUL-77 16:51 PAGE 67 


MACY1 
GET VALUE FOR SOF THARE SWITCH REGISTER 


RMO3 DRIVE COMPATIBILITY TEST 


15:44 


21-JUL-7? 


MAINDEC-11-DZRMI AD/00 
OZRMIA.P11 


; SOEVMN+364, SDEVM+512, SDEVM+640 AND SDEVN+768. 


; THE OVER-WRITE TEST IS PERFORMED WITH OFFSETS IN BOTH DIRECTIONS. 


ie Gees | 


BEBEBESREBESESESBESGE 


T6 


96-3 SE SESE SESE SE SE SE SIE SE EE SSS SS J SS -S 


té 


ee 
ZF 
ot 





#681 
Re, ( 

RY 

es 

RO, 

3$ 
FMTDPB+16 

STAC CRO 
85, 

SFaxcRO 
168: 


es 
is: 
4$ 





Satna TT 





MAINDEC-11-DZRMI AO/00, RMO3 DRIVE COMPATIBILITY TEST Yl -77 16:51 PAGE 68 SEQ 0067 
DZRMIA.P11  21-JUL-77 15:44 TS cor TRAE zie — 
; THE FOLLOWING SUBROUTINE ARE CALLED 

T, MAKEUP. 


SET NeoarT Ree DIRECTION FLAG 
: RonocR 


LENNON 
- 

















a 
cu 
Y 
g 
g . 
a: : BLOCK ADDRESS 
3250 : AND ENDING SECTORS 
: TOR FOR STARTING AND ENDING 
ss 
i 
> § 






vi, ¥¢, Vf. ¥4,1¢ 
+t + 
Rus + Ay, 
waWelss : 
vo 





sa cence) 


) 
0 ee Tors 


; THE FOLLOWING CODING TEST THE 
;COMPATI IN OFFSET MODE 


: OFF ,NEGA ;OFFCOD=1 ,POSITIVE 
03714 Ss: MOV 8FMTOPB, RO ; BLOCK 
Sera 160000 MOV Poe. SUROMCRO] FULL. TRACK WORD COUNT 
CLRB (RO RESET TO SECT ACE NOT CHANGED 
HOY , REG’S 


Ly ered Rove OFFSET FAILS 
RO ;LOAO THE cm ROORESS 
iL.0¢ TINE ERD ENDING SECTORS 


Sus BRE 
= 


TF NONE 
ARSC i areas ING AND ENDING ADRESSES 0.K ? 


t EXCLUDING THE BAD SECTOR 
;UPOATE THE TEST SCORE 


‘ .) 1,17 ,¥%, 1? vf, 1? 
+ 
aytaltal al 
me J ES ee TE pew ee sy ee ee Ye See! ef * 


= = = 
aE 
2 8 
Bigeye 
hak 
a 
oe 
FS 


ae fae bo hs fee foo Gs be Ce ee a 


1 
001360 001356 
360 


RS 








EO6 


re, og DRIVE Comat reat nsaey De fee 16:51 PAGE 69 


? 


ZONE 
ACE 
ARE TESTED ? 


OFFSET DIRECTION FLAG 
TEST 


one POSITIVE OFFSET ? 
ON 


UPORTE THe AEN STARTING AOORESS 
3 
: 
a 


UPDATE THE NEW WORD COUNT 


;ADJUST_ CYLINDER ADDRESS TO NEXT ZONE 


; 7 

i 0 

i} 1 

BRANCH TF 
iF NISHI 
ger POSIT 
;REST' 
;BRANCH TO 


; WORD cCTR=0? 
sseccri} 
SWROM (RO) 


, 

e 
SCYL (RO) 
SCYL(RO) 


cd 
a 
bo Seadae eben 35 


DESSeSRQRRe Roeser 


(RO) 


SRMWC (RO) 

Ftoacro) 
28 

STK 


9s 
os 
2 118: 
12S: 
13$ 


cae GEES 
BEE eS 





SANTMRT PARLE 


ee eee ee eee 





ak ad a kd a ad eg ed do 









OFFSET FAIL RETURN ADDRESS 


TION TOWARD SPINDLE OR AWAY FROM THE SPINDLE 
OFFSET SUCCESSFUL RETURN 


, OFFST 


a, 


1 


IRETRY 3 TIMES 
;CALLING SE 
fel 





" . eele - A bg 
Poo ora" e -{={={={- ={-{=]- he te 
eS Sess ¢s ok +h Se Saal Seal Seal Salk Deak Sell Sol Seal 





ss 


;SAVE ALL REGISTERS 
FOR INDEXING 
ADDRESS 


ve : hie 
TIMES 


LOAD DESI 
eae 
ye sLORO RAOF METH FHT AND OFT 


itRy 10 

iP AD 
CEPR. eh IEE DLL 
» 3 ond 

WHICH Df 


) 
) 
m4 
) 


fa 
JRMOF t 


= 
ian ienten > San | -Om fe] 
= &5. = “OS 
rete, a’ B<8o A are 
— ~ ~_ L ml 
mS une 
ao e onl Lend 2) 


a = ome uo ~~ 
ENOTES US Qua sCehe er 


SDRSSBDIBSEB SSR Soe sae 


OFFST 
1$ 


uaF 


eee E eee 
See Eeceees | Eee 


_—- 
MCU 








Hatwitteotety re 
TAT DANDY ) tt tt) tt tt Dt tt ft 
PCP CI OPED CIC bt pit pe bt 








FO6 














MAINDEC-11-DZRMI AO/00, RMO3 DRIVE COMPATIBILITY TEST MACY11 30(1046) 21-JUL-77 16:51 PAGE 70 SEQ 0069 
DZRMIA.P1I no shone 15:44 GET VALUE FOR SOFTWARE SWITCH REGISTER 
001005 BNE S$ ; OFFSET IS DONE 
DEC R3 COUNT = 
Bre : COUNT 
BLE bs ERROR EXTT 
56 cs: Bry aB1T14, RMDS(RY) } DURING OFFSET ? 
i 1 : IF ERROR 
0: BIT 8BITO,RMOS(RY) ; MODE IT SET ? 
R3 oO FE Den 
ik RS : ADDRESS 
03 6S: MOV (SP)+, RY *RESTORE REG 
MOV (SP)+5R3 
MOV (SP)+)Re 
335 MOV (SP)+;RI 
1355 RTS RS sEXIT 
MAKEUP ROUTINE 





AtAt ata? 
PI 


ETC 


mM ROT OF SSUES A WRITE CHECK OR READ COMMAND TO THE SELECTED DRIVE 
iF SET UP THE FOLLOWING PARAMETERS 
; One = PHYSICAL -_ NUMBER 


; DRVACT (DRIVE) 
iTIMER (DRIVE) = 1 SECOND 


: J PC, MAKEUP 
*MAIN PURPOSE OF THIS ROUTINE TO, TO EXECUTE A COMMAND WHILE ASSURE THAT 
5 


RUF RES USE ORD BCCETON (CAN GOVE HOLER YN OFFSET NODE. 







2ag 







ft 


a 


+ 
?; 
+1 


auCKD Re WRITE CHECK DATA IN TEST & 
810, TSTNM $ON TEST 
R2 


Bo0010 001336 


+t 
> of * 


“tn 


1 022740 
001750 O2304e 
000000 


PT BRORCT(RI) eho oe 
$1000. ,TIMER(R1)’; ONE SECOND TIMER 


RB, RNCSI (RM) ;ISSURE WRITE CHECK OR READ COMMAND 
(SP)+, R4 RESTORE REG 4, 


ays 
sas 
a 
fore 
EF 
ote 
eee 
a 
ETE B 


Be FB Pm bh ee 








MAINDEC-11-DZRMI AO/00, RMO3 DRIVE COMPATIBILITY TEST MACY11 30(1046) 21-JUL-77 16:51 PAGE 71 SEQ 0070 
OZRMIA.P11 © 21-JUL-77 15:44 GET VALUE FOR SOFTWARE SWITCH REGISTER 
1 1 MOV (SP)+,Re 
01 lose Olseor RV USPS IRI 
w#02 010510 000207 RTS PC ;EXIT 


NEYO UPDATE THE TEST SCORE 
(TABLEX):ADORESS OF CRRENT SCORE 


edie 


5ae SReeeRS 


;STARSC: START SECTOR ADDRESS 
;CALL SE 


pat be bb bs Be pe 


DONO ULC WT 


JSR PC, SCORE 
RET 


SCORE: 


238? 


i 
WBSSS 


mA 
4 ieee 
; 
= 
on 
3s 
a5 


BROW 
s 


: 

a) 

H 

° F NOT (MUST BE TEST 6) 
EGE SET 

: SCORE 


F NEGATIVE OFFSET 
BOARD ADORESS 


3 
3 


;SCORE BOARD ADDRESS 


Be 


Re 
I 
#16.,R3 an Lolo TAKES 16 BYTES 


ito 






Woe STARTING ADDRESS 
IGN A a St 


age 
Bgh 
2 

a 


DH 
— 
R 


: STARTING PRONT FOR SCORE BOARD 
ish POINTER ? 

jENTRY POINT AT THE SCORE BOARD 
; 


=o 


11S: 


a 


o2- 
pe 


RonRoRS ELE SSE EGER RRR RUONORTR OR eee 
RR 
SBBLPISSESSSR RAR ATS BSAA BSBAR AT IPSS SSs “0 
g 3 
arn 
F 
.. &,, 
Seek ae 
eee 
: 3 
m 


I ee ee ae 
+ + 
aes; 


aie 
2 22 


;ENDING SECTOR REACHED ? 


HO6 


MAINDEC-11-DZRMI AO/00, RNO3 DRIVE eR ie FOR TEST MACY11 30(1046) 21-JUL-77 16:51 PAGE 72 


OZRNIA.P11 


1 
1 





0 
1 


21-JUL-77 15:44 UE FOR SOFTWARE SWITCH REGISTER 
010672 o02412 BLT 9s ;BRANCH IF IT IS 
010674 105221 INCB = (RL) + s INCREMENT SCORE AND POINT TO NEXT 
1 00520 INC RY ; TCA DRIVE # 
i i ORS. RM iTIME T Thecee? 
i a a oe | 
10710 013701 oo2044 MOV TABLEX, R1 ; T ADDRESS 
1842 BBB es OOS it OSBENG bacx 
i 9s: - ’ 
1 “Ol ? MOV (SP)+, RY ;;POP STACK INTO RY 
1 pieees MOV (SP)+'R3 > POP ST AeK NTO R3 
1 12602 MOV (SP)+'Re *:POP STACK INTO Re 
1 HOY (SP)+,R1 ::POP STACK INTO Ri 
1 RTS 
; I 
iL peATE THe Sart SECTOR AND THE TERMINATE SECTOR OF THE PREVIOUS 
; OPERATION 
:ST : ART OR 
teneee ENDING SECTOR 
: INFORMATION FROM SRMDA(FMTDPB) , SRMWC(FMTDPB) , SSEC(FMTDPB) 
; SSEC(FMTDPB) , SWROM(FMTDPB) 
;CALLING SEQ 
JSR PC, LABAD 
1 LABAD: 
1 MOV RO, -(SP) ;;PUSH RO ON STACK 
1 MOV Re, -(SP) He Re ON STACK 
1 037146 MOV af ATOPB, RO ;DPB ADDRESS ae oa 
t 10 001356 Hove See AD) Starsc : BR Abb REE 
1 TST R2 : INATOR AT 0 SECTOR 
i Bre ; SecT0R COUNT 
i 001360 HOV , CMSEC : ING SEC Ss 
i 1S: Ist tite, ; ob a 
Q iT 3 
1 =, Wns 000004 44 (RO) SWRODM ( CHANGED AT ALL ? 
001 C(RO) Tae = START TART SECTOR 
ie ee a ae gece th fds eg 
1 12602 : MOV (SP)+,R2 : POP TACK INTO R2 
1 HOV (SP)+,RO ‘POP STACK INTO RO 





; TEST 


7 
SELF TEST:WRITE CYLINDERS SDEVM+17, SDEVM+17+128, SDEVM+17+128X2, ETC. 


SEQ 0071 


106 
SURESH SA) RR OME COMA TET AU BMH AR” MS! Pe 7 0 oor 
THEN EXECUTE WRITE re Ae - eel ANY DATA OR HEADER PROBLEM 


fe _  USGICAL Dal es 
CAL RIVE zt 


= > SESE SE SE 46 SE SE 36 ab Sb SE SEES SS J Sa 2 a a a a SE 


S17: 





tise Se Bynes em 
if Ig HOV Re Pea. SCORE BOARDS 
it = 1S: CR (Re)+ 

Sep 011064 10 BHI 1 one Pa NOT 

: it ot nov #-81 eSoeoncg) ;vowo Fact fc OL Pack woo WORD COUNT 
iti CLR tel ‘eo SECTOR Teuneace 
lillie 11 MOVB VE, (RO) RIVE 
i HOV $ Be fg THE ING CYLINDER 
iit i HOV Re, SLE (RO) a ;CYLINDER ADORESS ~ 
Hy MOV #RM.REG, 14(RO) pies To ai RH/RMO3_REG’S 
iit 2s: eR __—RO'RMOS an a | Phased nope F = 
111 46 FMTOPB 
it 037164 3s rst FrroPeris BE or omen 
ill 146 MOV #FMTDPB, RO ‘REPORT F ANY ERROR 
11174 13264 JSR PC, PROCES 
il ba NC STRK(RO) s NEXT SURFACE. 
it 4 000011 cre 89, STRK(RO) FALL. F VE URF ACE ARE DONE ? 

50 011214 10 ies CLR SSEC(RO) ; ; T CTOR AND TRACK 

ce 118 1 85001 CHP $000; '8C RO) : ZONES ARE DONE ? 

3 BHIS 28 ; 


IPE ie ceo 


rs eid? weer 
muse ae SS Sli bcs 


R3, SCYL(RO) ;STARTING CYLINDER 


a a ee 


BR 4§ ;BRANCH IF QUEUE FAILS 
037164 SS: TST FMTDPB+16 ;ALL DONE ? 





ai i 
7 
S 
: 
1 





MAINDEC-11-DZRM RMO3 DRIVE COMPATIBILITY TEST MACY11 30(1046) 21-JUL-77 16:51 PAGE 74 SEQ 0073 
OZRNIA.P11 15:44 GET VALUE FOR SOF THARE SWITCH REGISTER 
3568 011304 ss ;BRANCH IF NOT 
SIE Gaices Suaees " : 
3 6 18 iBtho) ANY ERROR lena 
eS fle fhe Dalal 
010176 6S: SR RS, OFFST : OFFSET 
H pve fh Brace Loum 
il 164 7$ TST FMTDPB+16 : / 
if " AOV ss SENTOPB, RO 
ti et JSR PC, PROCES 
Ba) Oi 000016 TST igtro) 
BMI 
33 (Oll INCB  — (R2) 
: i 002640 =} TST OFFCOD 
mS Ol BNE 95 
? O11 002640 HOV ‘$1, OFFCOD 
5.86 {lage ll JMP ag 
99 011410 il 9S: INCB STRK(RO) 
30 011414 INC 
31 O11416 000005 000011 CMPB saw, STRK(RO) 
11 BLOS -—«i108 
il CLR OFF COD 
114 IMP 4§ 
114 1 10S: CLR SSEC(RO) : 
ii Pr a ete aa 
one ° ; 
E c Gd GGL AR HELO GARI Mfoi 
th g02640 CLR OFFCOD Reser 
114 i il 4§ ‘T 
11474 00240 11S: NOP 
; TEST TEST COMPATIBLE TEST 
sCYLI S VM+112 Vie 12+128XN N=1 105 
THIS Test SELECT ONE EYLINOER F FOR EACH LOGICAL DRIVE FROM 
Eau gore : COCTCRL DRIVE # 
zi DRIVE : PHYSICAL DRIVE # 
ip EGRESS RRR REE RE EE RR REESE ER RERE 
ie ret 1 000001 001174 trio: soy a 37 MES ;;00 1 TION 
zie ol ies? 900010 001336 MOV Tern : LOAD het NUMBER 
17 011514 01 il MOV 910 ToT SP *INITAIL THE STACK POINTER 
zi8 il 002306 es HOV tat “CLEAR THE SCORE BOARD OF READ TEST 
ti 002546 ‘ ghp SROPH+16.,R2 =; 
ee tesa Ape857 ooeeuo Be COP con SRRONNEGATIVE OFFSET FLAG 
011540 012700 037146 LOOP3: MOV #FMTDPB, RO SET UP OP BLOCK 








MAINDEC-11-DZRMI AO/00, RMO3 DRIVE COMPATIBILIT TEST ee ie) fii” 16:51 PAGE 7S 


Y 
DZRMIA.P11  21-JUL-7? 15:44 GET VALUE 
O11S44 012760 160000 


Hs flee BES 


wn 


#-6192. , SWROM(RO) ;LORD THE WORD CTR,FULL TRACK 


roi SEED Re WEA EIH Lorex 


s 





SpsagSEg 
ne 


, SBUF (RO) BUFFER ADORESS 
811266 31288 W(RO) ;/GOREES TO SAVE ARh BANGS ADDRESS 
11604 sate Eve, sLOCATE STARTING CYL 
1818 HO fen ;STARTING CYL ADORESS 
023620 1S JSR og RO, RMOS ;CALL THE DRIVE HANDLER 
037164 2S: Br * be ; COMMAND, DONE. ? 
ie ri JSR Por PRoceS ;REPORT_IF_ANY 


ERROR 

31,00 TART AND STOP ADDRESS 
: ,1F NONE 
001360 001356 CMP CNSEC,STARSC  ;0N THE SAME SECTOR ADDRESS 
1360 Bee° CMSEC }DECREMENT ONE SECTOR COUNT 

BO ees eat po 
; = 
‘BRANCH TIF IT IS 


SSEC(RO) ; THE NEW STARTING SECTOR 
’. WORD COUNT 


ssa SP SEEN DE 
SSE ees 
aig 


Ra 

o- 
3a f S283 
aa an 





" 

1 

i 

1 

i 

: 

1 

{ 

1 

ie 

Hae as 

ii 037146 cs:  fiov  SFNTOPB,RO. RESET THE DPB BLOCK 

it Oso010 ee Pee TE nO eee a eT NOT CHANGED 
5 i 10176 6S: ae ier ; CALL orPsét . Fang 
St ccup HR ERR 
B58 O11 pa7ieM 7S Te] —_-ENTDPBtI6 HOPFSeT READ 1s 1 lth dunnes 
0 Oli 46 FEY SENTDPB.RO. © REPORT IF ANY ERROR 
eS Oli topse Ten Peres — THE START AN) STOP ADDRESSES 
eB tt ‘ a a 
BBS Ol 001360 001356 CMP - CMSEC, STARSC i START AND STOP SECTOR ADDRESSES IS 0.K ? 
20 ee es 2 Ce 
ee flee 7 2 ee mis 
: 1203 000010 MOVB  S$RMDA(RO),SSEC(RO) ; TE SECTOR AODRESS 

12 000004 HOV gee ro) Sen oben i oy ns 

i50e 000200 000012 10S: ADD j#$ 8128.,SCYL(RO) ;AOJUST CYLINDER TO NEXT ZONE 

1 001377 00012 CHE 8787. ,SCYL(RO) i ARE DONE 

i 911620 Ime ‘ 

O1 001266 11s: HOV SDEVH,R3 ;LOCATE STARTING CYLINDER 





SHES ERI OMT FP Birth” 8 men sa oars 
012 000012 MOV R3, SCYL (RO) ;STARTING CYLINDER 


000011 


Py a ae ar bs DONE 


Heo ibppete “si Rew ke Ao, 


#1 OFFCOD TE RUBY THE Ab PORE. 


1 002640 
LOOP3 
;TO NEXT TEST 


FO SRRVSOKV 


coed | 
: 
aasRegh gs 


;TEST11 TEST 9 
REPORT THE TEST SCORES 
;DIRECT THE OPERATOR TO CHANGE PACK AND MOUNT TO OTHER DIRVE 


- SDEVN : LOGICAL DRIVE #, SHOULD NUT BE UPDATED BEFORE THE REPORT IS COMPLETED. 
;BADSEC: ACCEPTANCE FLAG, BADSEC = 0, ALL OR DRIVES ARE COMPATIBLE 


; BADSEC = ARE NOT COMPATIBLE 
;CMTRK : TRACK (HEAD) NUMBER FOR CONTROLLING THE SCORE TYPING. 


g 
uyerrnuernreeany 3: 


SE SE SE HE HE HE EEE EE SE HE SE ae ae gS a a aaa HE 


+8T11: 





o Gisise 1273? 000001 001174 Rov #1 aie tt 1 eat ER 
i pistee BiSFae atte . MOV : all Ts fe Paar 
naan "Pie 
14 Ol CLR -(SP) 
iS O01 CLR -(5P) 
ie nee HOV eee | i ADDRESS 
t 1 1 306 NOV ath 82 sal Lae E BLE TEST SCORE 
t ° ee 4§ OP Hen i as 00 LOW 
1 Tat soe yg’ I 
rl 1 MOV #16. ,RS i INCRERENT READ COMPAT SCORE FOR ALL 16 DIRVES 
t is 000006 * AOD BD U3) i : ne 
1 23 HOV RY; (R3)+ ; Te AND PO D_POINTS, TO NEXT DRIVE 
: 2 ide 
1 o00020 4S: ADD #16. ,.R3 ; POINTER OF SCORE BOARD ADDRESS 
12: oo00d2 Ss: ADD #2,R2 : UPDA Pa TEST SCORE ADDRESS 
1 I DEC RI ALL FIVE ACES ARE ? 
a fia Soke me 
i i MOV ( Nt Re ai Y ARE O 





MAINDEC-11-DZRMI AO/00, RMO3 DRIVE COMPATIBILITY son eernad 30( 1046) al 16:51 PAGE 77 SE@ 0076 


OZRMIA.P11  21-JUL-77 15:44 GET VALUE FOR SOFTWARE SWITCH REG 
3% 012272 001351 BNE 1S 
: FLAG INITIALIZE THE 
01 05097 001340 CLR BADSEC i lime orn ti 
r 001362 CLR —- CMTRK :START FROM TRACK O 
9 pos004 CLR RL START FROM LOG DRY 0 
i , NOV TOR T ON FOR 0 
Bo197% toon: YO Test ob ev Gay oe 0, 
aR ae f Cie ICATOR 
1 Bolsee kip = SUEVARI Pg . 
434 SPATH :BRANCH IF 
71g 000016 KPATH: et 814. , (R2) a, TE NEG OFFSET <« 14 ? 
012766 : , PRINT iReport BctPtons 
6 Fe 000016 000120 1s SRPe #14. ,80. (R2) IERIE Poe Ae aaa ? 
101 SBRANCH IF NO 
RS, PRINT ptt 10 
ie #12.,160.(R2)  j NE hel 
,PRINT Reon IONS 
: TION ON REPORT 


i 


* 


LOOPS 
#14. , (Re) : . ITE NEG OFF < 14 


— Sr Perri ON REPORT 


000120 1S: #14. ,80. (R2) 
He TEST SCORE 
: NDEX 
; NEG OFFSET < 6 ? 
NOT 


ie 


RS, PRINT 
»RY 
#6, SELFO(R4) 


9 
: 
o 
9 
rT] 
o 
: 
#18, 240. (R2) : < 12? 
RS, PRINT STTON ON REPORT 
9 
‘ir 
Bo 
: 
: 
s 
9 
t 
o 
t ] 
: 
, 
D 





PT TENS By 
2ege 
Er 
3 +4 
SaaS 











Qe Pat Gam (as Pee pam as Be Re fe Be Ba ee Bt Oo Be fe ee ee Dt Bs fe fee he ee Be ee ee ee es Qs ee fee Bee ee fee ee ete fe ee 


peri pS EP RRRERSRARR roc tcc Dr arnr te caner PP EPEPEPON 





Page BPE 


i 3S: CHTRK, R4 mee SELF one EST SCORE 
+: 002547 #6, SELFO+1 (RY) : OFFSET < 6 ? 
3 RS, PRINT 
Of ; a ie ae ORT PRINTING 
> R3 oa 10 er DRIVE 

INC : BASE ADDRESS 











RMO3 DRIVE oat ILITY 


15:44 


ACU 


000001 


001362 


010242 


001270 


LOOP6: 


18: 


OISMNT: 


DEASG: 
18: 


XEND2: 


ill PAL BBA aR” St Pm 


Bis 


sSP3 SBS PAPER GEORG R GEE fang gO eRe 


q 
% 


Bose 
ROLEX, grVEC 


MeSGle 
ORIVE, -(SP) 


BLKADR(R2) coun 
TSTS 


er Loot 


te MAP POSITION FOR DRIVE 0 
a THIS’ 
ese 8 START FROM 0 - 
= Piatt DRIVE 0 


NORCE FLAG SET ? 
ge BRANCH 


Eis ;## ALL ORIVES ARE COMPATIBLE ## 


ied RE AMET VECTOR 


SUNLOAD AND DISMOUNT ME 
peu IVE NUMBER 


; TYPE R<CR> WHEN READY 
IN ONE LINE 

;LOCATE THE READ IN LINE 
NGAIN IF NOT 

: NATOR ? 


; IF NOT 


eel OF ASSIGED DRIVE 
Te (orca, VE UNDER TEST ? 
iSHIF THE BIT nee FOR 

NEXT DRIVE 


ee NTL THe LOGICAL DRIVE LOCATED 


eeieass.. 


;SYSTEM BLOCK ADDRESS 
;JUMP TO’ TEST 5S FOR OTHER DRIVE 


SEOP ;END OF PASS 


SEQ 0077 


-OZRNI AD/O0, RMOS DRIVE COMPATIBILITY TEST MACY11 30(1046) 21-JUL-77 16:51 PAGE 79 SEQ 0078 
21-JUL-77 15:44 GET VALUE FOR SOFTWARE SWITCH REGIST 


;PRINT ROUTINE 
>NAME PRINT 
: PRINT ONS FOR TEST SCORE 


A NEW LINE TO PRINT 


3 
wanes 4s 
é 
& 





: =1-4 COLUNM NUMBER TO PRINT THE EXCEPTION MARK 
: BADSEC = 0 FIRST EXCEPTION DETECTED 
BS 7 ;  BADSEC = -1 NOT FIRST EXCEPTION (DON’T PRINT THE TITLE) 
3855 ; CALLING SEQ: 
560 : ISR RS, PRINT 
3861 : NUMBER COLUMN NUMBER 
3862 : RET 
Fer : RL: yhOcIcat DRI 
3865 : LOGICAL CA DRIVE UNDER 
3866 : ot ‘Bit POSITION OF LOOT EAL "BRIVE IN R1 
3868 ‘ 
4 
012766 PRINT 
1 1014 MOV R »7(SP) R STACK 
1 Geb MOV * (SP) 
ee OLS7 OLONNe YOR atePD 3 He 
b1e776 005737 001340 TST BAbSEC a BcePTiON 
13002 100432 BMI 1$ IF NOT,DON’T HAVE TO PRINT 
913004 104401 001205 T , SCRLF ; 
13010 104401 035503 TYPE  {MESGI6 ;SCORES FOR DRIVE -- 
13014 104401 oo1e7e TYPE $COW2 ;SYSTEM NAME 
i here le2e n ORIVE, -(SP) : THE PHYSICAL DRIVE # 
3884 013026 002 TAYE 2 
Bike ge a ne 
1 1 T *MESG17 *SUB TITLE 1 
3688 013040 104401 O0120S TYPE} ‘ 
me Gites IONS Birete OR Ne aeey tarp 
: 15737 000001 001374 wy RL Bom aT ns sc rees P 
a 2 ie ae a be 
389 01 104401 001205 TYPE » SORLE : 
i t t i peg Bot Se3 MOV QATRK -(SP) TYPE THE SURFACE NUMBER 
He lg me 
1311 S 5 
iaiie 104401 036726 TYPE TAB ;TYPE “TABLE” CHARACTER 
13122 123701 001266 CMPS 4 ©- SDEVM, R1 *SCORE FOR SDEVM ITSELF ? 
3903 013126 001005 BNE 2S BRANCH IF NOT 





WWI WIG) GIG) 
Ge Pee fea fame Beno des Gee penn Fame Bene Doe 


ABNER LHEKS 2B 


= 
oO 


or 


— pe 


AE EE EARS 


| onamland 


be be Re ee 


PULL UNG Se REE eee rennin ites 


#23 GaDesResSe | ROD 


a 


$ 


SR eee eae eeT VALUE FOR SOP THARE iia) wl dif camonth vicars Mee _  $€9 0079 


: 
2 





104401 035717 TYPE  ,SELFX 
104401 035725 Me gare 
2S: Ri HISTORY 
002600 013174 HOV fm a % rae Te * 
000014 013174 ADD ,a83s THE SYSTEM NAME AND DRIVE 
104401 G3b1el TYPE ,LINSP 
1O440O1 lel Nee, * LINSP : ae ened 
: ; HOR i - FOR TYPING MESSAGE 
bt Seeant 001364 4S: MOV $1, NULINE *INDICATE PRINTER STOPS AT COULMN 1 
012504 cs: MOV (RS)+,R4 ; TEVE THe gsi {RED COLUMN # FROM 
37 001364 CMP RY, NUL INE > ON RIGHT ? 
103412 BLO *IF LOW NO vant 
035726 FORE "Fog : 0 RET POL UMN 
1364 INC AUL INE ‘I COLLIN CTR 
7 BR 6$ *CHECK AGAIN 
7S: TYPE MARKX : ION MARK # 0 
1364 2 INC AUL INE : 
12604 7 MOV (SP)+,R4 ACK INTO R4 
12603 MOV (SP)+,R3 + Oop aTACk Rox IND R3 
12602 MOV (SP)+'R2 +: POP STACK 0 Re 
12601 MOV (SP)+°RI ::POP STACK INTO RI 
000205 RTS RS br 
gon240 IDLEX: NOP RESET ALL RH VECTOR FOR MOUNT AND DISMOUNT 
ooo002 RTI sEXIT 
PROCESS THE ORDER TERMINATION 
PROCES: MOVB (RO), UNIT DRIVE FOR ANY ERROR MESSAGES 
. TST TATUS(RO) F "DRIVER SIGNALED AN ERROR 
000020 tt $B1T15, snuencenl SEE IF SC’ SET 
BEQ 1 -BR'IF NOT SET 
000020 be T q. SI (AO) ei TRE’ SET 
BIT aBIT14, SRMDS(RO)’ cl ERR’ SET 
1S: ISR *NO CHECK ERROR BITS ANYWAY 
JSR RB RKBuS *NO ’ CHECK BUS ADDR & WC 
2S: RTS > RE 
ORDER TERMINATED WITH AN ERROR - PROCESS THE ERROR 
932760 000200 000016 ERPROC: BIT #81707, , STATUS(RO) ) jDoNe BIT SET vs cg 
000137 013516 IMP DONE : PROCESS PERFOR WITH ° | Spore? Brheer’ 








07 





MAINDEC-11-DZRNI AO/00, RMO3 DRIVE COMPATIBILITY TEST MACY11 30(1046) 21-JUL-77 16:51 PAGE B81 SEQ 0080 
OZRNIA.P11  21-JUL-7?7 15:44 GET VALUE FOR SOFTWARE SWITCH REGISTER 
30 PROCESS ORDER COMPLETION WITH ’ERROR’ & ’DONE NOT’ BITS 
3%2 01 000016 ERPRCI: be 881T12,STATUS(RO) ;SEE IF DRIVE WAS UNSAFE 
Ea t 000016 I cae STATUS(RO) ; ERROR OCCURRED 
i BT FE oat 
1 000016 I IT10, STATUS(RO) :FAT TY ERROR? 
1 “BR IS ONE 
1 000016 BI 881709, STATUS(RO! af THEE 
iml2 BNE 
13414 000016 IT et 1481701, ae 7 WENT OFFLINE ? 
i 000016 BI eeiTe, STATUS(RO) ST TIME OUT ? 
3973 O1 ase BNE TIM 
13434 RTS 
;DRIVE IS PERSISTENTLY UNSAFE 
OSs 104414 032216 UNSAF: OISPLY .EMI2 
o 13442 000137 014264 IMP buMP 
sUNCORRECTABLE MASSBUS PARITY ERROR OCCURRED 
tia UCPAR: 
1 104414 032120 DISPLY ,EM10 
O134S2 000137 014264 IMP bumP 
FATAL’ MASSBUS PARITY ERROR OCCURRED 
1 OL Sse 104414 032163 FALPAR coy EMI 
33% 13462 000137 014264 IMP BuMP 
;SOFTWARE TIMEOUT OCCURRED 
Bee 10414 032247 SHTIM:  OISPLY M13 
998 013472 000137 014264 IMPs OUMP 
ee. 





;DRIVE WENT OFFLINE 
Nee 14 032321 OFLIN: IsPLY M14 
01 booi37 Biazes oe UMP 

SPORT REQUEST TIMEOUT ERROR 
ot 104414 032344 PRIM: OISPLY EMIS 
13512 000137 biaze4 IMP UMP 

SPROCESS ORDER COMPLETION WITH "ERROR’ & ’DONE’ BITS SET 
ql § 32769 000030 000016 DONE: GIT _NBJTOW!BITO3,STATUS(AD), ;UNSAFE OCCURRED 
13626 000137 o14254 TMP ——_UNSAF 'REPORT UNSAFE 





SEE PR RES OUP FY AG Bide” 8 me 0 on 





4016 000030 BIT SBIT14,SRMCS2(RO) ;IS WCE’ SET ? 
aif Baa. mieaeres 
es 1T14, SRMDS(RO)’ : CHECK ERR’ 
‘ Symes 
1 000034 1S: BIT #81T08,SRMERI(RO) ;’HCRC’ ot, 
1 BEQ +6 BR IF NOT 
1 INP : *HCRC’ 
1 000034 BIT 261 104, SRNERI (ROS : SET? 
rl BEQ : fe F NOT SET 
i je ee 
000034 IT #81107, SRMERI (RO) ’ SET? 
13a Re CGiice Bek “heer e 
13 000034 BIT #B81T13,SRMERI(RO) ;° Sr? 
rl BEQ me) F NO 
I 000034 aT 8 5, SRPERL CRO) i. PAR ate 
ey nite 
1 IMP 
1 000034 BIT 881 SER 0 e* SET? 
i BEQ " EMTS SET 
1 000034 BIT #BIT10, SER RO ’ Be » SET? 
= fig : 
1 BIT #BITi1, icro} ee 
1 Q +6 BA ant SET 
1 IMP WEER SREPORT ! 
i 000034 a T9, SRMERI (RO) j ’ 
1 000032 ¢ IT10, SRNDS(RO)’ ; 
1 BEQ 2s 
1 RTS PC 
i 000034 25: 9 081712, , SRMER1 (ROS 
rl IMP TEER : 
geen 
+6 BR I 
rl JMP 
i 000062 BIT 1T14!81T13, Bnet 
BNE -BR IF If IS 
1 000062 I IT15, SRMER2(RO) “BAD SPOT ? 
14010 001004 BNE 4§ BRANCH TF SO 
14012 000i : MP jREPORT 
14016 0001 14234 3S: INP SKIER ; T DRIVE ERROR 
14022 4§: RTS PC ; 
PROCESS DATA (’DCK’) CHECK ERROR 
Bios. 104414 032421 OCKER: OISPLY .EN2I 
14030 000137 014264 IMP bump 
4071 WRITE CHECK ERROR PROCESSING 





21-JUL-77 16:51 PAGE 83 


FO? 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


MAINDEC-11-DZRMI AD/O0 —_— COMPATIBILITY TEST MACY11 30(1046) 


21-JUL-77 


OZRMIA.P11 


;D0CK BIT SET ? 
BRANCH IF SET 


T15, SRMER1 (RO) 


lhe 
Nee 
bumP 
ERROR 
EM2O 
bump 
DISPLY 
ies 
;POSSIBLE POSITIONING ERROR 


EMo4 
IMP buMP 
;PROCESS HEADER COMPARE ('HCE’) ERROR 


CKHCE: 


: DISPLY 1 
‘ea ts 

T ’OPI’ ERROR 
; EM31 
BUMP 


DISPLY 
JMP 
;PROCESS FORMAT (’FER’) ERROR 


CKFMT: 

POSER: 

OPIER 

’ 

DTEER 

;REPORT ’PAR’ 
PARER 

IAEER 


032760 
Re 
re 
104414 
0001 
104414 
0001 
104414 
0001 
d 000137 14264 
104414 
0001 
104414 
0001 
IG soy srs 
10441 
0001 


8 322 x a8 HAS FIR FH Doe 
x 777 rae Fs Fee FFF F rzF 


A et 
rea hondonhondondonhen bontentenhen hen hen hen ton hon honhenhenhonhen pen pen pon hen pon hon bend 
raarzrz7z7z77z77z7777777777777 7777777 





GO? 


MAINDEC-11-DZRMI AO/00, RMO3 DRIVE COMPATIBILITY TEST MACY11 30(1046) 21-JUL-77 16:51 PAGE 84 SE@ 0083 
OZRMIA.P11 21-JUL-7? 15:44 GET VALUE FOR SOFTWARE SWITCH REGISTER 
ai ;REPORT WLE ERROR 
a GIS ows gasses Mem 
41 4200 137 014264 si ae 
di REPORT FORMAT ERROR 
413 ae FMTER: ‘ 
ub BIST Abctk? BREE Ghat 
1138 ;REPORT HEADER COMPARE ERROR 
4 4214 $ Y 
aM Ordss0 dois? Braces HCEER: PY Bune 
dius ;PROCESS CONTROL/INTERFACE TRANSFER ERROR 
4145 014224 TRFER: 
4] 14 104414 033435 DISPLY ,EM4O 
div? Ol4e30 000137 O14eb4 Imp ~—s BUMP 
ii ;PROCESS SKI’ OR ’OCYL’ 
4151 014234 SKIER: 
4 14234 104414 034115 DISPLY ,EMSO 
4153 014240 000137 014264 IMP 
;REPORT WRITE CLOCK FAILURE 

en WCFER: 

14 104414 033222 DISPLY ,EM34 

014250 000137 014264 IMP BUMP 

;REPORT DRIVE UNSAFE ERROR 

ath UNSAF : 

14 104414 034216 DISPLY ,EM60 

014260 000137 014264 IMP OuMP 


RROR 
ERROR 
RTS 


fajlelel=i=)|=) 
Po Se a tt 
BSSRRE 
ane 
as 
—©3 
be me pe 
on-o™~ 


;CKECK ERROR BITS IN THE RH11 AND RMO3 REGSTERS 


BR2BIa Tot LINAS Sw ORNT Owe Sow RAE 


SEES ESCLCSCSCSCSCSCSCSC SECS CSCS SCEC SSCS SSCL 
ee ee ee ee ee ee ee at eae 


014276 932769 060000 000020 CKERR: BIT #60000, SRNCS1 (RO) ;3EE IF 'TRE’ OR 'MCPE’ 
Hi ie 177400 000030 BIT ' 77400, SRNCS2(RO) *ERROR BITS IN CS2 / 
14316 760 000034 TST SRMERI (RO) “ANY ERROR IN ER1 

Biss SBS *S i 

14 000062 TST SRMER2 (RO) ANY ERROR IN ER2 





HO? 


MAINDEC-11-DZRMI AO/00, RMO3 DRIVE COMPATIBILITY TEST MACY11 30(1046) 21-JUL-77 16:51 PAGE 8S SEQ 0084 
DZRMIA.P11 | 21-JUL-77 15:44 GET VALUE FOR SOFTWARE SWITCH REGISTER 
014390 O01404 BEQ 2s BRANCH IF NO ERROR 
a ioe 7 eee ” ee bone TYPE ALL REGISTERS 
ui tees Sposa7 2s: RTS PC , 
“i ;CHECK BUS ADDRESS REGISTER AND WORD COUNT REGISTER 
41 1 905760 CKBUS: TST SRMWC (RO) ;WORD COUNT = 0 
4] 1 1011 BNE : 
4] rl oo0004 MOV SUROM(RO) ,~(SP) sHORD, LENGTH 
4] 1 16 NEG (SP) °GET POSITIVE NUMBER OF WORD COUNT 
Mt : ; ast BYTE COUNT 
ue Ghee i Te Be 
41 1 14 033477 1S: DISPLY xm 
1 137 014264 IMP TYPE ALL REGISTERS 


2s: RTS 
;ROUTINE TO DISPLAY THE SECTOR WHICH GAVE THE HARD ERROR 
PRTBAD: TYPE » SCRLF 


pes bs 


(RO),R1 ;PUT THE END ADDRESS INTO Ri 
SWROM (RO), -(SP) FINO ee NG OF THE SECTOR 
} 


I UT ere 


herent By THE SECTOR SIZE 


inttee 
oo 


ee 
ae 
.@ 
° 
meage 
aha 


Si Sepanneeornns aesjUitiasseets Eescepeanas 


= 1 
om Ot Nee 
1 MOV 
4 1 MOV 
ai 
i0 01 ADD 
iB i abe 
ueIa Ol in PE LIMV i ReMA 
4 ie igs " te SO ONVERT is = he T INTO BYTE COUNT 
5 Sn pel a Bue 
18 1 000 1$ $1000, R1 gan it SeTOR S FROM END ADOR 
ike Ge Be 2° Bae 
4 : 47" ; A NE COUNT 
ioe { Or 014666 a a SG 
w 1 160 poobes 4g: CMP R1, SRMBA(RO) PRIN THe SECTOR ? 
4 t ryt 036121 BTSPLY ot NSP ie 
1 Gizise tine -(SP) ara. ON THE STACK 
1 014666 JSR PC, LIAOCT TYPE THE DATA 
1 00530 DEC THE HORIZONTAL COUNT 
1 1 4 BR IF NOT AT THE END OF THE LINE 
1 Ol 04414 001205 DISPLY ,SCRLF oni 
i onaee 001205 SS: ISPLY Sar as RERETRS IN” THe BUFF ER 
1 000207 6S: RTS Pc 
4 o1 Ou 2 FILBUF: SAVREG ;SAVE THE REGISTERS 
4 1 16001 000006 MOV SBUF (RO) ,R1 :BUFFER ADDRESS 





sss eee sacnsssancasssnncasasnconines 


= 


FI SeUSE SR 


7 
oe he 


ph bb bf pa he pe om bes 


— 


Si 


83 


: 


y 


GALERIE 


Sheba 


1 16646 
146 

1 1 

14 

14710 104414 
1471 

1471 

14716 


im 
wo 


“= COMPA Te YE 


164324 


164310 


014712 


SWROM(RO) , R2 

NEG 

nov T,RS 

3s MOV (RS)+, (RL)+ 

Be |S 

DEC =—«_«&B 

BNE 3 

HOV SSTAOAT, RS 
Be 38 


4$: wee pc 


107 
"soPtwane SUG RhecBereR “7 "85! PAGE 88 


POSITIVE WORD COUNT 


TM pst en ING THE PATTERN 


REGISTERS 


5 5 Me aE SESE SE ESE SE SE SE A A SS a HE 


~SBTTL ERROR MESSAGE GENERATION ROUTINES 
| | JHHIHHHHHHHHHHHHHHIHHHHHHHHIHHHHHHIHHIHHHHHHHHHHH HHH EE 


;PRINT LINE 1 OF ERROR MESSAGE: 
; HH: MM:SS’ 


LINE1: BED ' 10, 2SWR 
YPE L 
1S: IT §SW13, ISWR 
Q 2s 
SPLY ,SCRLF 
es: : i srive 
3s: bit pei isPo 
;OCTAL TYPEOUT ROUTINE 
;CALL: 
: MOV NUM, -(SP) 
: JSR PC, LINOCT 
: RETURN 
LINOCT: MOV 2(SP),-(SP) 
JSR PC, $S820 
MOV (SP)+.1§ 
ADD #5.,1$ 
DISPLY 
1S .WORD O 
MOV (SP)+, (SP) 
RTS PC 
T 


BR Ie wey SET ? 


Phe BELL 
a TYPEOUT ? 


oe ns TIME 


Rs TYPE DESCRIPTION 
;PUT THE NUMBER ON THE STACK 


;PUT IN PROPER LOCATION ON STACK 
HY NUMBER TO 


;GET ADDRESS OF THE ASCII STRING 
i ADDRESS THE LAST 6 ASCII DIGITS 


ae THE STACK 





SE@ 008s 


MAINOEC=11-DZRMI_ 90/00, N03 DRIVE COMPATIBI ty TEST oe CNH on? (1046) 21-JUL-77 16:51 PAGE 87 SEQ 0086 
dba o14720 016646 000002 LINDEC: MOV 2(SP),-(SP) SET UP STACK FOR CONVERT 
usa i 5 nstened ja Pa. $ahep. iFONVERT i if PERA TRG ZEROS SUPRESSED) 
4300 014734 012616 MOV (SP)+, (SP) RESTORE STACK POINTER 
14736 000207 RTS PC 


5 ME AEA SE SEE SE A EE EE 


-SBTTL GENERAL SUPPORT SUBROUTINES 
5 5 JHHNHIHHHHINHHIHHHHIHIHHHHHHHIHIHH HHH HHH HEHE 








4 
4 i sROUTINE TO CHECK FOR KW11-L OR KW11-P CLOCKS 
4 ie p14 177777 901314 CKCLK: MOV #1, G ; CLOCK AVAILABILITY FLAG 
4 14 177777 OOl3ie MOV 8-1’ PCLOCK : 11-P CLOCK AVAILABILITY FLAG 
4314 Ol Ois034 00004 MOV sckElK] ,ERRVEC SET Ur VECTOR FOR CLOCK CHECK 
4315 O1 CLR a t+2 “NEW PSW 
4316 O1 TST aSLK ; CHECK FOR KHL} 
4317 O1 1314 CLR SET CL LABILITY FLAG 
4318 O01 1312 CLR > SET Kul i-p ch FLAG 
4319 O1 MOV RL ;KM11-P VECT ss 
4 1 1 MOV OCK,(R1)+ © SET UP_KWI1-P VECTOR 
¥ 150 MOV #300, (R1) ;PSW_= PRI 
4 1 ir 164256 MOV ‘ “Abb QSLKCSB ;LOAD WITH 16.67 
4 i 131 164246 HOV 81 8131, gSLKCSR SET CL , 10US, CONT INT 
4 1 po0004 CKCLK1: ADD es SP ; RESTORE STACK POINTER 
4 1 15102 000004 MOV SCKCLK2, 8ERRVEC’ ; VECTOR TO CHECK FOR KW11-L 
4 i nti ISI aSLKS iLO Ai KWL 1-L 
4 1 1310 MOV CI VEC, RI *KW11-L VECTOR ADDRESS 
4 1 015234 MOV #CLOCK: (R1) SET UP _KWI1-L VECTOR 
“ 1 900300 MOV #300, (81) - PRI 6 
‘ 1 100 164206 HOV 4 00, gSLks SET KW11-L INTERRUPT 
Q CKCLK2: 84 ST STACK POINTER 
4 t i eo NEBCLK if ORL CLOCK MUST BE ON SYSTEM’ 
4 1 000042 TST da “UNDER MONITOR CONTROL ? 
4 1 BEQ 1§ BR IF NOT 
4 1S: T : 
g 

5 003062 START TRY AGAIN 

: > , 
4 1 000006 O00004 CKCLK3: MOV #6, JBERRVEC RESTORE THE ERROR VECTOR 
he 01 RTS 
y 
{ ROUTINE TO TYPE THE TIME 
4 015136 005737 001314 STIME: TST CLKFLG CLOCK ON THE SYSTEM ? 
coy Blais SEAR fe ate 
u i 901205 YPE RLF CRoLF 
4 15150 01 00134: MOV HOUR. -(SP) *PUT ° * ON THE STACK 
4350 015154 004 016402 JSR PC, $SB2D ; CONVERT TO DECIMAL 
4351 015160 015716 JSR RS, REPLZ TYPE IT 


KO? 


Cc 


11-DZRMI AO/00, RMO3 DRIVE COMPATIBILITY TEST MACY11 30(1046) 
IA.P1L  21-JUL-77 15:44 GENERAL SUPPORT SUBROUTINES 

Beige ive, “con 

1 HOY Ay -(SP) 

a JSR RS, REPLZ 

1 .WORD 2 

i 4 nove ACCORD -(SP) 

ie ; aero 

1 1S: are? Bc 





;CLOCK HANDLER ROUTINE 





MAINDE 
DZRNIA. 
4 
uae 
: 
4 
y 
y 
4 
: 
4 
4 
4 
4 
4 
3 
4 1 001350 CLOCK: DEC SIXTEE 
daze b1es4d Soros oe OPE 
1368 1 001316 001350 MOV HZ, SIXTEE 
4 1 INC SE 
4 1 001346 CMP #60. , SECOND 
ae a COND 
4 1 INC MINUTE 
4 1 001344 CMP #60. , MINUTE 
4 1 Bye MINUTE 
4 15310 INC HOUR 
4 15314 001342 CMP #999. , HOUR 
4 1 BHIS 1§ 
q t 1S ay ta (SP) 
4 1 JSR PC, RP 
4 rey 2s RTI . 
4 ;COMMAND DECODE ROUTINE 
4 : #-1, CFLAG 
4 : ISR PC,KSR 
4391 : RETURN 
4 : RETURN2 
4 1 O41 KSR:  SAVREG 
4 t : Oolsg sist CLR CFI te 
4 1 eis SR PC, SIME 
4 AB iso4 TST cf 
1 3371 000240 - 5 
1evge iat oooog2 #2, (SP) 
ie tz hadted 163540 Bis oS TIDE aSTKS 
Woe sete bpea7 177776 CLR pS.’ 


21-JUL-77 16:51 PAGE 88 SE@ 0087 


;TYPE 2 DIGITS 


cane 
iv 2 prcrts 


;PUT SECONDS ON THE STACK 
;CONVERT TO DECIMAL 


; IT 
;TYPE 2 DIGITS 


31 THE 1°60 SECOND COUNTER 
;BR I a + COUNTED 


Rub fe 
THE SECOND’S COUNTER 
;COUNT THE MINUTE 


D 
~ 
: 


9 

2 

g 

a 

*BR IF NOT 

‘Bree MINUTE’S COUNTER 
; 

5 

: 


;’CFLAG’ IS NORMALLY SET BY THE TTY SERVICE 
; IN INTERRUPT MODE 


; C’ FLAG 
iGheck fe Sonat CFLAGS 
:Bune CooINe FOR LATER USE 3/8/77 
;RESTORE RO - 

: THE 

;CLEAR THE TTY BUFFER 
;SET TTY INTERRUPT ENABLE 
;SET PRIORITY BACK TO ZERO 


ADDRESS 


SEQ 0088 


LO? 


Cot Ky i COMPaT TRILL TY TEST BA opt 1046) 21-JUL-77 16:51 PAGE 89 


‘ : al 
wh o& §8¢ 
-28 : Et 2 : = % 8 : 
gee: wzRe gts ane " Set Zé 
w Lee eeee = Btw, 5B Es 
re oe sooc, ¥ 2 
ee 
te eee 
= Sea 
: : - og EBS 
Ses pan, » were 282 See cf bas 2 
| OPS agten sess 68 oe Sau ¢ Seatem 198. oa « 
g 2 gizvevtequdsan. icxitecice fe ues Pe ae 
e © aay snuenenammnnene lemesmaalec sure Spesnuaue 
“El Peet a8 


ei6fe CUE 


> - 
we oe 
ooo0o =" 
OO hk hd ad eh htt td Rintatatatutasasates 


ere dedesdessciecerrerersersitiititiiiiiisiziizizss #3 








MAINDEC-11-DZRMI AO/00 


OZRMIA.P11 


fa 
as 


SSOOSISSOSASSISEISOASSLSS SEL Sstts Taz gsA TAs tAtt8 
faleole olele = elelelel-) 


Qa ee bas FS Bt ee be fe et he 


PREP RARD DNS 





ay 


RMO3 DRIVE COMPATIBILITY TEST MACY11 30( 1046) 
21-su-7 15:44 GENERAL SUPPORT SUBROUTINES 


ae 


000010 


000012 


M.OP4O: 


M.DP41: 


M.DP42: 


M.DP44: 


EE OEE eee eee euineeRS 


S28 
Bag 


Bea BPE Seeise 


z@ 
= 
w 


JSR 


-(SP) 


£ 
3a 
"BZ 


aa 
ry 
— 
Zz 
ip 


ie 


8 2aR: 
e 82 


33s 
% 


B =3S 
a 


ta 
o 
~ = 8S: 
Bx-- 
ar 


Bugnszoe 


= 
~ 
1 


— 
wewewe 
~ 
i) 


21-JUL-77 16:51 PAGE 90 


; THIS IS A LONGER LASTING CARRY BIT 


; TEST “CARRY™ INDICATOR 
iF Me ADD ELSE SUBTRACT 
FOR NEXT TIME 


;ADD -(DIVISOR) 
;SET “CARRY” 


9 
;ADD +(DIVISOR) 
;SET “CARRY” 


Hest The upoa TE INDICATOR 
NO FER peel ate HERE 
+ DECREMENT ER 
“BRANCH IF MORE TO DO 


;ADJUST STACK BY 4 WORDS 


Ca TO REPLACE LEADING ZEROS IN A NUMERIC STRING WITH SPACES 


;ADDRESS OF NUMBER (IN ASCII) 
;’N’ IS NUMBER OF DIGITS TO BE TYPED 


aT A eA FOR INDEX TO BE TYPED 
ie Me 
ZERO WITH A SPACE 
ers | Cok FOR ROR LERDING ZEROS 


;BACKUP STRING POINTER 





a 


i ee 
is fies 


01 
Hae 
161 


ssaanenennnninnaanmnannenestisnsesanamnsnmnamecnnsets H 





1630S2 


Goobe 018776 3S: 


e 


fab 


Cont vn, ra A DRIVE COMPATIBILITY. TEST mretos 21-JUL-77 16:51 PAGE 91 


i eae ie Boar FoR. Te 


; TYPE NUMERICAL ASCIZ STRING SUPRESS LEADING ZEROS 


4§: 
MOV (SP)+,RO 
MOV (SP)+? (SP) 
RTS RS 
; CALL as 
: JSR Pe SSUPRS 
SSUPRS: MOV RO, -(SP) 
MOV 4(SP) RO 
1S: S18 (RO) 
Sal #’0, (RO)+ 
“ Q 1S 
fi, Ba 
DISPLY 
3S: -WORD O 
Ry eit 
ATS 
ROUTINE TO TYPE AT PRIORITY 4 
TYPRI4: MOV aePs, -(SP) 
MOV #200 
MOV (RS)+ 
JSR PC, ST 
1S: .WORD O 
RTS RS 
sROUTINE TO TYPE ERRORS 
; CALL 
; DISPLY 
; 
SOSPLY: BIT #81713, ISWR 
sig YPE 
18: ADD #2, (SP) 
RTI 
iTHIS ROUTINE 
*ASCII CHARAC 
; CALL 
* MOV SADR, Ri 
; JSR RS, CK.OCT 
$ RET 


-(SP) 


;FIRST ADDRESS OF ASCIZ STRING 


tiers room 
He fuse RN ASCII ’0’ ? 


OE ihn 
pe GOES HERE 
;RESTORE THE STACK 


;SAVE THE PRESENT STATUS 
Cia PRIORITY TO 4 
;T 

inessace ADDRESS GOES HERE 


RU” 


3 INHIBIT — TYPEOUT ? 


E 18 USED TO CHECK IF AN 
A DIGIT BETWEEN 0 AND 7. 


HECK THE ASCII CHARACTER 
; CHECK TER 
;CHARACTER IS NOT BETWEEN 0-7 


5€@ 0090 


MAINDEC-11-DZRMI AO/00, RMO3 DRIVE COMPATIBILITY TEST MACY11 30(104%6) 21-JUL-77 16:51 PAGE 92 SEQ 0091 
OZRMIA.P11  21-JUL-77 15:44 GENERAL SUPPORT SUBROUTINES 


; RETURN2 ; CHARAC Is IN RZ AS A 
: :OCTAL DIGI 
16116 121127 000060 CK.OCT: CMPB (RI), 80 SS THAN 9 
lblee 1 BLO is YES -- Be 
16le4 lel 000067 CMPB OO s«(R1), 8°7 GREATER THAN SEVEN? 
16130 101 BHI 1S YES <-- BRANCH 
Sey OleI ezoe 17770 Sa Veo ERIP faa THE ASCII 
ube GieiiG Fay (RS)4+ ; FOR 
W386 16142 000205 1S: RTS RS + RETURN 
TO CHECK AN I TER 
ee RESOERERNS Fe PP Seo CPG AGEDA OHSS 
4591 tes MOV BADR, Ri ; ADORE ASCII_CHARACTER 
Woae : 13k RS, CK. DEC j CHECK CHARACTER 
: TURN ?NO 0 AND 9 
4E 4 : RETURN2 *BETWEEN O g 
95 : Re = DIGIT 
Weep S16144 121127 000060 CK.DEC: CMPB (R1),#’0 ;LESS THAN ZERO? 
4598 O16150 103407 BLO 1S >YES -- BRANCH 
4599 OibiSe tele? 000071 cre (RL), 09 *GREATER THAN NINE? 
en tata 111i MOVB BF) R2 OFF THE CHERACTER 
Bieiee Oosres CeO Bie ao fe SEOTUST FOR RETURN 
Heo pie iss Bpaene 1S: RTS RS i RETURN 
4606 ;THIS ROUTINE WILL CHECK AN ASCII CHARACTER TO 
4607 ‘DETERMINE WHAT IT IS. 
gCALL MOV BADR, R : II CHARACTER 
uEL MRR RK CHR OPE CK CHARACTER 
4611 : RETURN ADRI ;URECNOWN CHARACTER 
Hole : RETURN RORe AGE RETURN ‘ (R1)=ADR+1 
461 : RETURN Conn # (RI)=ADR+1 
4614 : RETURN ADRY ap (R1)=ADR+ 
Si | He RIT rag 
1 : TURN 
te17 : *Re = TOreIT & Bio 3 
161 1 CK.CHR: TSTB (RI) : I TURN”? 
deed st3ta] ia Q i vee 
1 016176 121127 000054 CMPB OS s«(R21), #’, ” 
16202 001413 BEQ “YES -- BRANCH 
16204 i 000056 CMPB 4 s«(R1), #”.. :“PERIOD"? 
1p5i8 ae 016144 FER , CK. DEC gir 
Ma] Btps38 etter 016116 BR, Re, CK.OCT *OCTAL me 
4628 Ol62e4 005725 TST (RS)+ :DIGIT BETWEEN 8-9 
toe9 1beeb b057¢5 TST (R5)+ : g T BETWEEN 0-7 
1 1$: TST (RS)+ : 
4631 Ol6232 005725 2S: TST (RS)+ : COMMA 








SEQ 0092 


INPUT 100 LARGE -- Re=? 


: 
Po §: 

& jee 
= es op 
og. Sa RES eI 
neh cael 

o # 

© 2 ai 
€ 2, e — 
nape 4 eeceee 


-_ 
-_ 


ate 


Hes fre 
O1is0s 
000205 


PANE Cet} -OzRBT 90/00, Rg Dnive COMPATIBLTY bear ee Oy la 21-JUL-77 16:51 PAGE 93 
HES 


g 
4 
: 
« 5 
a o hed 
= . 8 = 2 
= 5 a . Fe : 
FS = ~ 
: es Ey sibs a corte: 
. te ™ 4 
$- fy De: 1 "leas - os 
E yey ote, teow an 2 
zat =e od * ey #2 wae Fated a 
Le Rees ee ees 
hae |S 5 2 5 
Rime 2y 223 2229 
zovvory zeseo hay ZoteEcinnbils 
Eps dsciensrnBebddeenrnen win RE etn 
: ag 4 88 See 





mR NEN anes nemeseren emt 


patatatatatata tata tata ta tata pata ta pata ta tata eed OE ey ee a ee eg cag Cd od ee 








Ee NI 


MAINDEC-11-DZRMI AO/O0, RMO3 DRIVE COMPATIBILITY TEST MACY11 30(1046) 21-JUL-77 16:51 PAGE 94 SEQ 0093 
OZRNIA.P11 © 21-JUL-77 15:44 GENERAL SUPPORT SUBROUTINES 


1 9s: MOV R3,R2 sENTERED VALUE 
stead Biesee TST (SP)+ CLEAN MAX. SIZE OFF OF STACK 


Wee8 
aE fie oe 


RTS 


ies seas WILL CONVERT @ J6-BIT UNSIGNED BINARY NUMBER TO AN 
seg or a ee jPYT, THE NUMBER ON THE STACK 


OF THE 1ST ASCIZ CHAR IS ON THE STACK 


4708 ;NOTE: THE PROGRAM REQU QUIRES TH FORM OF *$SB2D°, NOT THE VERSION ON 


= 
ewe wewewe 





4704 

4 1 016426 aaa ) NARY NUMBER 

oe TER Sy ie RR, RESIN 
4 1Bub 12666 abe DEES SAL DORE 

4709 OibHes 000207 : RETURN 

4710 016426 000000 oo00000 1S: 

471 ; THIS ROUTINE may CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
W713 “UNSIGNED OCTAL ASCIZ NUMBER. 

47 ‘ees -(SP) THE NUMBER ON THE STACK 
uote i Ber esed0 LL 

4717 *ADORESS OF THE 1ST ASCIZ CHAR IS ON THE STACK 
471 NOTE: THE PROGRAM REQUIRES THIS FORM OF ’SSB20’, NOT THE VERSION ON 
i720 : THE SYSMAC LIBRARY, REV C AND LATER 

4 164 1 016456 $SB20: MOV 2(SP) : THE BINARY NUMBER 

wes Blew Glee Dleiee OCC ME AL Mg) 

4 J L THE LENGTH CONVERT 
4 1 00002 HOV (SP)+,2(SP) PICK THE POINTER 

4 1 R 

4 1 oo0000 1S: RTBRO 0,0 

4729 ;KEYBOARD INTERRUPT INITIALIZATION ROUTINE 

4730 ;CALL 

4731 : JSR PC, STKINT 

{ : RETURN 

4 01 012737 016512 O00060 STKINT: MOV SSTKSRV,TKVEC ;SETUR VECTOR 

4 16470 O1 000240 000062 MOV 8PRS, TKVEC+2 © ;PRIORITY TO 5S 

q ieee ABFiBO 162450 nov sari gstxs SET INTERRUPT ENABLE 

Me 1651 pheno ats Pe : ‘RET 


in ;KEYBOARD INTERRUPT SERVICE ROUTINE 
we : ENTER VIA INTERRUPT 











g Onive COMPATIBILITY. obanr eu aime 21-JUL-77 16:51 PAGE 95 


MaINDEC=11-DZRII RMO3 
DZRNIA.P11  21-JUL-7? 1S: 

4 a sore MOVB 14,5 . 1 CHEROCTER 

as i ; teat 000003 CMP oFP35° 1 ET BBL c’ ? 

4747 165 BNE a BR IF NOT 

4 1g go1205 TYPE ,SCRLF : 

4 16 ? TYPE SCNTLC 4c? 

4 1 1 001334 MOV b-1, CFLAG iSET THE ° CONTROL C’ FLAG 

4 ! 1 CLR 3 5 ; TTY INTERRUPT 

4 1g 001154 000176 1S: CMP SWR, #SWREG SWITCH REGISTER IN USE ? 

4 tf 016642 000007 ae BY 87 POAT “are ? 

irae Oe fe menor 

4 166 yee TYPE < G iVtgr 

1759 1 Tea fe HOV bs (SP). PUT THE TATUS WORD ON THE STACK 

u i 1eee4 CLR st, : INT ENABLE 

4 1 021364 INP SGTSWR GET THE THT TCH REG GISTER ENTRY 

4 1 000100 162326 2S: ei ae: EN INTERRUPT 

4 1 1 016642 3S: YPE 4 "ECHO THE CHARACTER 

4768 16640 boone 4g: RTI : + RETURN 

1768 016642 000000 SS: .WORD O ;ENTERED CHARACTER 

4770 ;THIS ROUTINE WILL INPUT A STRING FROM THE TTY 

ais : IN A STRING FROM TTY 

4 : URN HERE tABDRESS OF FIRST CHARACTER ILL BE ON THE STACK 

4774 : TERMINATOR WILL BE A BYTE OF O’s 

ais 1 SROLIN: MOV R3,-(SP) 

4 bt Peue Riesue CLR -(§p) apa tes RUBOUT KEY 

4 1 017122 1S: MOV TTYIN, R3 

4 1 17134 2s: CMP TTYINS10. ,R3 eae? 

4 1 10146 BLOS I 

4 i 104810 ROCHR senha toe iB READ ONE CHARACTER FROM THE TTY 

{ i 13 000177 as 177, tR3) Tie 

‘ 1 I rs} (SP) 15 IS THE FIRST RUBOUT? 

ei 17a? p01 34 017120 nove #’\,9S ! Fa SLASH 

4 1 0171 T 9$ 

4789 i 21 16 177777 * HOY b-1, (SP) i557 THE RUBOUT KEY 

4 1 017122 z CMP , SSTTYIN *STACK EMPTY? 

4 1 1 BLO 4§ BR IF YES 

5 16 1 17120 MOVE = (R3), 98 TO TYPEOUT THE DELETED CHAR. 

4794 Ol 17120 TYPE 9 

4795 O16 BR 2s :GO ANOTHER CHAR. 

4 16 716 Ss: TST (SP) i RUBOUT, KEY 

q 3 000134 017120 Sie #\,95 i ee aon s SLASH 

4799 016752 104401 017120 TYPE 9S 


SEQ 0094 





MAINDEC-11-DZRMI AD/O0 
OZRNIA.P11 


4800 016756 005016 


16760 ate 1 
ie 


assense 
Se 


pteiaaet ste 
NOU WU 
Deas fee TS = ee Gee fe dee bn ee 


Qa bs be bo b= pe be hb pe Pt bm be ft B= pm ee 


SINNNN 
= ZenRRIRS SCRE. 
£ 

| md aud aud 
— 

#ie5 
-— 

——W) 


3 pisseeiees ee! 





ooo 
NNN 


~ 
2 


OOOO OCoOO0000o 
Ot BS = et Fe fF BB be fe bee 
FHS Fee bs Be be Be 
-_ 
ee ee ee 


Ree SERRE 
ru Deas 


i 


PUicauies es tees Reacts 


FO8 
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005015 


001334 


UUUUE 


CLR (SP 
7S: fe ' , (RB) 
wos: fee 8c 
: , 
MOV 8-1, CFLAG 
TYPE 1 SehTLC 
8S: Gree a8, (Ra 
CLRB (R3) 
TYPE ‘S§TTYIN 
4§: PR Oe Ss 
as: foe (aay,98 
z i 
CMPB sR, (R3)+ 
fine ot 
-1(R3) 
TYPE SLF 
11S: TST (SP)+ 
MOV (3P +R 
MOV (SP), -(SP) 
MOV 4(SP}_2(SP) 
Hoy eSTTYIN, 4(SP) 
9s: .BYTE 0 
TTYIN: tS oa 
Sintec: BLKP 740/¢CR> <LF> 
.EVEN 
FINISH: TST FAULT 
BYPE TS ORL 
TYPE | SCRLF 
T *MESGIS 
1S: 
TYPE ‘ME 
Re iP 
oP 38200 


-SBTTL END OF PASS ROUTINE 


55 AEE 3-9 6-0 0 0 9 9 4 9 9 A A A a a a 
S_ NUMBER (SPASS 


;#1 MENT THE PAS 
;*#IF SWl2=1 INHIBIT TRACE TRAP 


21-JUL-77 16:51 PAGE % 


IF NO 


C FLAG 
eae 
'¥s TER A LF"? 


; CHECK RETURN 
; IF _NOT RETURN 
a 


‘TYPE A LINE 
ps3 PREY FROM THE STACK 


TORE 


y 
: ACK AND PUT ADDRESS OF THE 
: FIRST ASCII CHARACTER ON IT 


{OFORAGE FOR ASCII CHAR. TO TYPE 


if AVE 20 BYTES FOR TTY INPUT 
:C RRO Se 


COMPATIBLE ? 
:BRANCH IF NOT 


;MESSAGE: ALL DRIVE COMPATIBLE 


;BRANCH TO 200 START IF DESIRED 


) 


SEQ 0095 
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-SBTTL ERROR HANDLER ROUTINE 


JHIHIHHIHHHHHHHEEHHHHHHHIHHHIIEEEEHHHEHHHHHHHEE EEE 
THE ERROR 


4b 36-6 $b 06 4b ab ab ib ab ab ab at 
tithis ROUTINE WILL INCREMENT THE ERROR FLAG AND COUNT, 
NUMBER AND THE ADDRESS OF THE ERROR CALL 


we HAY Ee MED BY THIS ROUTINE ARE: 


+ SauiSe a gt ERROR TYPEOUTS 
; #SW10=1 BELL ON ERROR 


1e5b iT A MONITOR GO TO IT 
:#IF ISN’T JUMP TO FINISH 
1 SEOP: ae : 
t 001116 CLR STSTNA js ZERO THe TEST NUMBER 
1 001174 CLR TIMES He NUMBER OF ITERATIONS 
apes i sei 001216 Ane $1G0000,, SPASS + DON ow Nee NUMBER eR 
4865 Ol Seorct: DEC (PC)+ ; ; LOOP? 
: eer 3;YES 
1 : MOV (PC) +, 9¢PC)+ : RESTORE COUNTER 
1 1 ” §EOPCT 
1 1 ooo042 SGET42: MOV as42, RO :3GET NO MONI TOR ADDRESS 
i ae ee SON ener BIT 
{ 017302 MOV .T,-(SP) ae ATE OR 
1 26 BR SRTRN bo, A RTL OFA att 19 LOAD THE PSW 
48? 1 SCLR.T: ie 
Oi a0e 013700 oo004e2 HOV gsv2,RO $3 ‘tee RO CONTAINS THE MONITORS 
Bee oo, BE 
1 ! te 1 SENDAD: JSR PC, (RO) $3 TO MONITOR 
=a aS : eB 
i snonen NOP ;;ACTI1 
i7se4 nerie Pig (SP) A Ueaa te et OT ot AK 
i feed iitered 161616 BIT t6It12; osu a 1TH TRACE 9 
4230 137 017364 1 STBIT 2215 i TIME FOR TRACE TRAP 
1S #20, (SP) T TRAP 
es 1 1 eed 1S: MOV SLOOP, -(SP) +4 TO START OF TEST 
17356 000002 SRTRN: RTI 3} RE TURN-~ TTS at GRMED CHANGED TO 
*QN “RTT” I IS A LEGAL 
la ae : : INSTRUCTION 
ie We My fe 
° i Sait: hORD ;3"T" BIT STATE INDICATOR 
4902 
ugoe 
site 


5S 


-— 
-oO 





=z 
LD 
Ee 
Oo 

v 

bo pe 
Pa fee 


Ras Bat Ba fon Bae bot be fo ee tem ee Pe Be 


je elolaeielel= ==) 


0 ba bs fe = oe Pe 


EEERURE Fo suwNNe na oan IIe SRORERRVE SESSIONS 


BEB Secs eee eee 
-_ 
a 
aaSg8y 
= a 
8 


OS 0 Be Om Bm ms Be tt se be et beh 


AIRERASEA DARA DARAAID DLS AEa apes apaaanagenaageRsssassss | 


bs hs ge ee 


are 
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5 #SHOS=1 LOOP ON ERROR 
i ERROR N ;sERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR: 
104407 CKSWR ;; TEST FOR CHANGE IN SOFT-SWR 
001117 7$ ince G ss 
; DON’ THE GO TO ZERO 
001116 161552 MOV STSTNM, @DISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG 
161542 T IT10, dSWR >;BELL ON ? 
I Q 1 7:NO - SKI 
alee 1 ; = ;;RING 
BoLiss , MOV ( F a UF ERROR INSTRUCTION 
i 4 inte ay OSERRPC ITEMS TRIP ERROR ITEM CODE 
hari 161 Bey Pio eur ieee TYPEOUT "ie Cer 
I BNE gus :;SKIP_TYPEOUT 
7566 JSR SERRTYP ::G0 TO USER ROUT INE 
104401 001205 aa TYPE ,SCRLF 
000001 001230 : cp #APTENV, SENV 5s RUNNING IN eT MODE 7 
001130 017506 MOVB TEMB, 21S $00 I RUPEER As ERROR NUMBER 
D20222 JSR PC, SATY4 +:REPORT FATAL ERROR TO APT 
21S: -BYTE 0 
22S: BR Os ; APT ERROR LOOP 
2s: aSWR 


ii TESy BOR CHAE, tH SOFT SiR 


161422 


ee IF NO 
1124 SLPERR, (SP) :;FUDGE RETURN FOR LOOPING 
1176 4g: TST SESCAPE 3s CHECK FOR AN ESCAPE ADDRESS 
BEQ s :6R IF NONE 
16 001176 “ MOV SESCAPE,(SP)  ;;FUDGE RETURN ADDRESS FOR ESCAPE 
017312 oooo42 ~~ CMP 8SENDAD,d842 ;;ACT-11 AUTO-ACCEPT? 
BNE ;;BRANCH IF NO 
es HALT >: YES 
) RTI ; ;RETURN 
.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


s LELLEAEALLL SESE REEL EE Me ME HE HE HEE HE He HE EH a aa a a HH HE 


5% ent 
iain Ts 0 of ReponteD, FHEN OBTAINS, FROM THE “ERROR TAGLE™ (SERRATE), 
] . 


TS THE APPROPRIATE INFORMATION CONCERNING THE ERROR 
SERRTYP: 


sou4o 001205 TYPE SCRLF ;;"CARRIAGE RETURN” & “LINE FEED” 
10046 MOV RO, -(SP) .s 
005000 CLR RO ::PICKUP THE ITEM INDEX 
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SetearoereM RRR NEE © 


SSssssssss 
ee 
WMONGMU£C WO 


017576 153700 001130 
017602 001004 


017604 01374 001132 
017610 


Sco ee 


Bae fee ae a be bt pe p= be Bs Bee Ps fee Pes Bee 


RAR 
oro 


017722 105737 001173 
017726 100002 





BISB d@sSITEMB,RO 


BNE 1$ fies The eo fF ERO UST 


MOV SERRPC, -(SP) FOR TYPEOUT 
Typoc . i: ASCII(ALL DIGITS) 
1S: DEC BS + ET USt THE INDEX SO THAT IT WILL 
RSL RO : WORK FOR THE ERROR TABLE 
ASL RO - . . 
apy ( Mes + PKU “ERROR WES ace POINTER 
BEG 3s ;3SKIP TYPEOUT IF NO POI 
2S: TyORO 0 Hil GOES 
TYPE SCRLF + SCAR INE FEED” 
3S: MOV tRO)+, 4S -3P “HAT INTER 
BEQ ss 3; SKIP 
- TYPE : ata “DATA 
iWPee SCRLF 33 "CARRI FEERY 
cs HOY tRO), RO Hace TA IRGLE” POINTER 
6$ MOV (SP)+, RO He STORE RO 
TYPE $c * "CARRIAGE RETURN” & “LINE FEED” 
as RTS Pc : > RETURN 
: MOV Q(RO)+,-(SP) ;; @(RO)+ FOR TYPEOUT 
TYPOC +: G0 =-OCTAL ASCII(ALL DIGITS) 
TST (RO) : ANOTHER NUMBER? 
BEQ 6$ ;;BR_IF 
TYPE 485 +: TYPE TWO(2) SPACES 
8S: -ASCIZ  — + Roce) SPACES 


-SBTTL TYPE ROUTINE 
3 HHHIHIHIHHIHHHHHHHHHHHHHHIEHEHEHHHHHHHHHHHHHHHEHHHE 


i BROUT INE TO TYPE Uz MESSAGE. ME MUST een ATE MITH H "O.BYTE. BYTE. 
3% INE WILL T A NUMBER ROCTER 10 6 
;#NOTE1: SNULL CONTAINS THE tp Ge Gee aS THE PIELER CHARACTER. 
; #NOTE2: settle conta Ly Birt 3d OF FILLER Che res REQUIRED. 
senor : SFILLC CONTAINS TER TO FILL AF 
> #CALL: 
:#1) USING A TRAP INSTRUCTION 
ae TYPE , MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
i TYPE 
ft MESADR 
;# 
STYPE: TSTB $TPFLG ;;I1S THERE A TERMINAL? 
BPL 1$ ;;8R IF YES 


POTy FY A 
pee = he ee be ee ee bee be ee 


PELERESSERERVES 








000012 


001230 
001231 


001231 


o60008 


WUUUUE 


DRIVE COMPATIBILITY TEST MACY11 30(1046) 
TYPE ROUTINE 


BR 
se Bsr 
CPB 4s SAPTENY, SENV 
Bia oat 
BEQ 62S 
Re ihs 
eg: atte. SAPTCSUP, SENVM 
2s: mOVB.«(ROD#,-(SP) 
: Hoy ‘ 
TST (SP)+ 
60S: MOV (SP)+, RO 
3$: aw #2, (SP) 
4g: CHP SHT, (SP) 
Gide nr,con 
on 
TYPE 
SCRLF 
CLRB § SCHARCNT 
Ss: an STYPEC 
6S: chee SFILLC, (SP)+ 
MOV ,- (SP) 


7S: DECB us 
JSR STYPEC 
CB SCHARCNT 
;HORIZONTAL TAB PROCESSOR 
8s: 8’ (SP) 


MOVB 
Qs: af r PC, TYPEC, 
aR (SP)+ 
STYPEC: ae Fs Meh 
ot 
- 
PB 


21-JUL-77 16:51 PAGE 100 


+ PAY HERE IF NO TERMINAL 


ROORESS oF OF roe STRING 


HOPES IIT KehcnRe gr? 
si TF INATOR POP IT OFF THE STACK 


iy PC 


;;BRANCH IF NOT <CRLF> 
sPOP (CR><LF> EQUIV 
; TYPE A CR AND LF 


iit deer CHARS. ? 
She te 


BT SMS BELT or src 


3360 
4 1DB NOT COUNT AS A COUNT 


; REPLACE TAB WITH SPACE 
i; TYPE A 
;;BRANCH IF NOT AT 
35 TAB STi 
;POP SPACE OFF chenetren” 
t CET NEXT CHARAC 
;;WAIT UNTIL PRINT TS READY 


{EWS*Gaecren A cmmace RETURN? 
YES CLEAR TER COUNT 


1 enol A LINE FEED? 
::BRANCH IF YES 


SEQ 0099 
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Bhat Beecs docond scHarent, woRD O SS CRRRACTER COUNT. STORAGE 


be0e02 000207 STYPEX: RTS PC 


-SBTTL APT COMMUNICATIONS ROUTINE 





f , o SEEKER ELEREREA REEL ERAS LALA AAA LARA AAA RA AAA ARAAAARAAAAAAA ARES 
ais SATY1: MOVB #1,SFFLG 3;TO REPORT FATAL ERROR 
085 SATY3: HOVE 1, StL G 370 TYPE A AESCAGE 
sary: MOVB 81, SFFLG ;;TO ONLY REPORT FATAL ERROR 
: " MOV RO,-(SP) ; ;PUSH RO ON § 
MOV Ri’ -(SP) PUSH R1_ON STACK 
ss C TSTB = SMFLG 3 ; SHOULD A MESSAGE? 
%® | BEQ S$ 33 1F NOT: 
097 CMPB 0s BAPTENV, SENV + ODeRATING UNDER APT? 
22 «Of BNE 3$ 3; 1F NOT: 
ie f OF) Nw ooo es led nano 
ee Ege iT Et cr, 
i Oe Ie: 1S: rey TYPE RS (4 W XMISSION? 
105 ¢ MOV SMSGAD ADOR IN fATLBOX 
i B00. 2s [ste RO)+ IND END OF 
1 SUB ,RO START 
' 20. ASR N WORDS 
, SMSGLGT 
tt HOV #4; SMSGTYPE ee APT To! TE ee 
tt 3S: MOV (SP) 4S ;;PUT MSG ADOR IN JSR LINKAGE 
114 ADD 4(SP) uP 
il MOV 7 -(SP)  ;;PUSH 1 One STACK 
il JSR , STYPE CALL TYPE MACRO 
118 Ge03e oe 
1 10$: STB  S$FFLG $3 REPORT FATAL ERROR? 
1 BEQ 12S ;;IF NOT: BR 
i TST Ta ane User APT? 
1 118: Reo te8 orypE tT foeD LAST MESSAGE? 
1 BNE 11§ ;;1F NOT: WAIT 
1 of MOV DY(SP),SFATAL  ::GET ERROR 8 
1 0 ADD 82, 4(SP) + ADOR. 
1 OM INC SMSGTYPE ;:TELL APT TO TAKE ERROR 
1 tat 12$: CL Le ° FAT 
1 = CL 9° LOG 
1 ye CLRB G $3 FLAG 
131 Oe MOV (SP) +, Ru : ACK INTO R1 
i Oe HOV & 1+°RO j§ POP TACK INTO RO 
1 SMFLG: .BYTE 0 >:MESSG. FLAG 
5138 SLFLG: .BYTE 0 LOG FLAG 





MAINDEC-11-DZRNI AD/OO 
DZRMIA.P11 


5136 020450 


SFHESHASSBS 


SSSR RASA rn TTS ST SARA AAAs, 


BIBIRR IER BIa Vota 


$191 


PyerUry 


454 5¢ 
yt 
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042527 


APT COMMUNICATIONS ROUTINE 

SFFLG: .BYTE 0 ; FATAL FLAG 
1ZE foe 

AP 1 

APTSPOOL=100 

APT 


-SBTTL POWER DOWN AND UP ROUTINES 


| 7 JHHIHHIHHINHHHHHHHHHHIHIHHHIHHHHHHHHHHHHHHHHIH HEHEHE 
POWER DOWN ROUTI 


$PURON LLUP, @8PWRVEC ;;SET FOR FAST UP 
MOV EHO, gaPunvece i bato:9 pe 
Hoy ie ) + Puen or at 
MOV *=(SP) PUSH Re ON STACK 
MOV R3,-(SP) $5 R3 TACK 
MOV RY, -(SP) 4 RY TACK 
yaa (SP) + OUST Seu ON STAICK 
ae Sie Se 
HOV ,@SPWRVEC’ :;SET UP VECTOR 
BR -2 ;;HANG UP 
: BOWER UP R ROUTINE KKKKRKRLARRALRS REEL RR ERE RRR ALAA RRA AHHH 
$PWRUP: MOV SSILLUP, QUPHRVEC ;:SET FOR FAST DOWN 
MOV § . 33 SP 
CLR SS0VRb HH I OOP FOR THE TTY 
1S: Inc : ;;WAIT FOR THE INC 
MOV {8p 4, aSuR + Oop INTO 2SWR 
MOV (SP)+,R5 >:POP STACK INTO RS 
MOV (SP +R : POP aC NTO R4 
MOV ( 4,3 > POP NTO R3 
a 
MOV she > :POP eTACk Ny Ro 
MOV SSPHRON, ONPURVEC ; A967 UP THE POWER DOWN VECTOR 
MOV ,@UPWRVEC+S ; :PRIO: 
TYPE ; REPORT THE POWER FAILURE 
SPWRMG: .WORD SPOWER ;;POWER FAIL HESSAGE POINTER 
BIC #20 a(SP) He Tt eq 
cLR stat He THE BIT FLAG 
SILLUP: HALT ;;THE POWER UP SEQUENCE WAS STARTED 
SSAVRE: a ~ +7 Sper ORE oP HERES seamen see 
SPOWER: .ASCIZ <15><12>"POWER” °’ 


- EVEN 
-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
5 He a 9 9 9 a 
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;#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 


 HOCTAL (ASCII) NUMBER AND TYPE IT. 
TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


MOV NUM, -(SP) + OT FOR TO_BE TYPED 


-BvTE N IHET 108 FOR MIGER OF DIGITS TO TYPE 


ee ee 


rrr rT 


1 
is 
a SUPPRESS LEADING ZEROS 
 ¥STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:#STYPOS OR STYPOC 
Be jaca MOV NUM, -(SP) etree TO BE TYPED 
i TYPON :CALL FOR TYPEOUT 
or TYPOC=--ENTER HERE FOR TYPEQUT OF 16 BIT NUMBER 
il ie ” MOV NUM, -(SP) ;;NUMBER TO BE TYPED 


;;CALL FOR TYPEOUT 


; TDS SeRO FILL FILL SWITCH 


o3 
SP)+'SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
: ADJUST RETURN ADDRESS 


ran 
f 

au 3 
Ad 





a Ree 
al STYPOC: MOVB 1,SOFILL 5 ;SET ZERO FILL SWITCH 

MOVE = 6, +1 i5BeT F : X(6) DIGITS 

STYPON: MOVB iS, i eT On COUNT 
OY Oa =CSPD SAVE RS 

’ (SP) it 

nove 50 +1,R4 3 3GET THE NUMBER OF DIGITS 70 TYPE 
io 86, Re $1 SURTRR T i FOR MAX. ALLOWED 
HOVE SOF ILC :iGeT Ty hen ut SH ICH 
an eC ec 

1S: ROL RS t HROTATE TEs INTO "C™ 

2S: ROL RS + PORR pO ne DIGIT 
ROL RS 
my ra 

3S: ROL R32. tire ts OF THI THI pIGIT 
DECB SOMODE ity HI DIG 
Bre #177770,R3 He RID. OF JUNK 
BNE 4§ +: TEST FOR O 
TST B $8 THIS 0? 

4S: Fe Ra 1 BOT SEBpress ANYMORE 0’S 
BIS #’0,R3 >:MAKE THIS DIGIT ASCII 

SS: BIS 8’ (RB *:MAKE ASCII IF NOT Y 
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B55 GBioes lowo1 deloee eh $i oD TYPE THIS DIGIT 
Pee eee A Ae LENE Biee to 00 
9° ’ 
Ba eS APOE RELA DI GhPY * 
1 6$ MOV } ted ii ORE RS 
Ribs flee Cn st a a 
oo0002 000004 MOV  2(SP)/4(SP) He STACK FOR RETURNING 
| aban ci (SP)+; (SP) ¥ 
8S: ‘ 0 HSFOkmce For ascrr DIGIT. : 
SOCHT: Byte : ioctac o1aly CouaTER 
SrObe: “HOR t FEMBER OF BIGITS TO TYPE 
.SBTTL BINARY TO DECIMAL AND TYPE ROUTINE 
+ HHH HHH HHH HHH 
s ATHIS NE IS Puerta free pe 
ciate Postrt NEGATIVE A Ba’ I GN WILL BE TYPED 
; BEF ORE Ei St DIGIT OF THE NUMBER. LEADING WILL ALWAYS BE 
is ' NUM, -(SP) ; PUT THE BINARY NUMBER ON THE STACK 





STACI 2 
re 
3 8 
apse espana enagass: 
ee 
Ba 
a 
B3 


if 

3 000001 

se 

Nc #’ , (R3)+ +3 SET TO A BLANK 
2s: R2 >: CLEAR 

el 021274 SOTBL(RO),R1 ;;GET THE TANT 

O1 3S R1,RS > FORM TH DIGIT 

} Re He BCD DIGIT BY 1 

lel 4g: R1,RS ;;ADD BACK THE CONSTANT 

el TST Re CHECK IF BCD a 

; { At (SP) >:STILL DOING NG 0’S? 

021 BMI 7$ ::BR IF 





SEQ 0104 


PAGE 10S 


ROUT INE 


21-JUL-77 16:51 


CONVERT BINARY TO DE 


RMO3 DRIVE COMPATIBILITY TEST MACY 


15:44 


shams 


MAINDEC-11-D0ZRMI AO/00 


OZRMIA.P11 





tG) 
S 


NT C 
;SAVE SWREG FOR TYPEOUT 


T 
F 
G 
ASCII 


ASCII 
6? 


ieee ef 


1 
ALREADY A 
THE OUTPUT 
LSD THE FIRST NON-ZERO? 
FOR TYPING 
+ TO USER 
a 
BRANCH IF YES 


QufcH RERISTER TRAP CALL 


E. re epeeeee ye Oi 


;;GO TYPE--OCTAL ASCII(ALL DIGITS) 


— ere ne ' r 
Battfeeecuete aniaeel i g5, waenseeste faa 
ene meacme emeomemeneme ome eecnce oe an: OM OS OH OS OS CH Ew CEEe om emcee cn ca 

- 9 a aie * 

e. oo he me Bs i 

oO a See w = i, o 1 

~ geeks ws Rteeesgoe gore 2 Ske Bog 
i eer sep tates wage 


qgeeetoes abalsEtennebnectls# 


LSB 


©» SEE-E-ESE SE SE SE SE SE HE SE Sb SE SE SESE SE SE a ab J a a a a 


Iie f 


oS gg 1 pee cmmenangeoapingsnemne ns ipeamrenemet snr et terme nam 


-SBTTL TTY INPUT ROUTINE 


1 tese 
s 
3 


ba 


ss 
5§ 
7$ ° 
8S 
9g 
SOTBL: 
SDBLK: 
t SOF 
nas 





emai: 8 86C a 


=== -QOO000-00 


JEG ARNE ORS SUSSANASS BaS5 


ed hd Ge ed re ad et ad th gH HH HH ee ee ee YUGY 


BURESASRYS HYRBARISAE 


SSSR aman arecooramans saree sraamaeeas 
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$360 021376 104401 


ee be es ee eee 


sRRBe 
= 
-_ 
-_ 


se 


el ee ae 






- 
£ 


; +44 
Bee thee bh -2 Gan fee Ge ae feat J fe ae Pm Fae Ps pt ee bes ee 


33¢ 








021741 


1S7S46 


177600 


001204 


19$ ay 
7$: ae 
me 
9S: CMP 
20S: poo 
10S: CMP 
Rey 
BEQ 
MOV 
118: ADD 
14S: TYPE 
CMPB 
BNE 
MOV 
15S: RTI 
16S: JSR 
CMP 
BLT 
CMP 
BGT 
BIC 
TST 
BEQ 
ASL 
ASL 
ASL 
178: INC 
BIS 
BR 
188: TYPE 
BR 
-DSABL LSB 


, SHNEW 
*(SP) 


@STKB,-(SP) 
aici, (3P) 


3 
= 
w 


t “ROOT Fane 
~~ 
as 
——_ ss 
3 
— 
a 


ans 


SEQ 0105 
L RPSST AR aca 

tiface Yr Serr Ascri 

+418 17 A cONTROL-U? 


ttVES. ECHO CONTROL-U (tU) 


1s JONOGE PREVIOUS. INFUT 


a 
383 
a 
1 


gaa nos 
= 


ww 


z a3 
if 
: 


7 JHHHHHHHHHHHHHGHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHEHHHHEHHHE 
ER FROM THE TTY 


3% ROCHR 
8 RETURN HERE 


> WITH 


THIS ROUTINE WILL INPUT A SINGLE CHARACT 
*#CALL: 


;; INPUT A SINGLE CHARACTER FROM THE TTY 
33 IS ON THE STACK 
ITY BIT STRIPPED OFF 
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S416 021576 O116% 
5417 021600 016666 000004 
A Te TE me 
2161 17342 
aS Ge 
Fe ee Ee 
Be 157310 
tie Es Wace? 
t 
ie 000004 
1676 000004 
ioe 000040 
1714 
ie 
oe 
000 
1741 047040 
: ost aue 000040 
7 
a 
5452 
aA 
sue 
1 
asd 010046 
1 1 
ne 
1 1 
i 10446 
: a co 
1 1 tenis 
021776 O16646 





po00e3 


SROCHR: MOV (SP), -(SP) 
MOV 4(SP} ,2(SP) 
1S: i3re io 
MOVB TKB, 4(SP) 
I atC<177> 4( 
4¢ ), 823 
es: ipre TKS 
MOVB ae -(SP) 
BIC 8#C17?, (SP) 
(SP)+, bel 
BNE 2s 
BR 1§ 
3S: CMP 4(SP), #140 
BLT ug 
CMP 4(SP), 9175 
BGT 4§ 
BIC #40, 4(SP) 
4§: I 
: .ASCIZ /tU/<15><1l2> 
TLG: . «15><12> 


SMNEW: .ASCIZ / NEW = / 


RBCs /t : 
-ASCIZ ¢19><12>/SWR = / 


ese @Sewee Se eeese Seeeese we we 
ewews Sewewe SGewewese we we 


eG A Contnatoa 


a ae IT 
tte ty CASE? 


-SBTTL SAVE AND RESTORE RO-RS ROUTINES 


¥% 

*#TOP---( +16) 
3% +2---(4+18) 
2 +4---RS 


=a 
1 
a 


CRRA 


Ht Att fr 
“— BBSESS 
Bae 


oo SE SESG-SE-3E SESE SE M6 $6 Se SE Se SE HE EEE EE SE HE HE a a aE 


G 
TURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


;;PUSH RO ON STACK 
PUSH Oh Stack 
+ ue TACK 
;;PUSH RY ON STACK 
33 BS ak 
$3 MAIN FLOW 
$3 PC OF MAIN FLOW 
;;SAVE PS OF CALL 


SEQ 0106 





EQS 
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EES & 


<P 





Ue cClLAle 


016646 
000002 





ues 
t++ee 
ed 


022144 


Mov 22(SP),-(SP)  ;;SAVE PC OF CALL 
ve gabon 
‘% 8 8©=©-- RESREG 
SRESREG: 
MOV (SP +, 28(SP) ;;RESTORE PC OF CALL 
Rov (p33 55, 2p) ii Ree Tone Pe of MAIN FLOW 
MOV (SP )+, ee¢SP) jsREST PS OF ain FLOW 
MOV (ate 33 NTO 
od : +34 ; ;POP NTO R4Y 
en ee mS 
MOV (SP)+,R1 HF ACK INTO R1 
HOV (SP)+,RO -:POP STACK INTO RO 
.SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 
Etats ROUTINE ROUTINE LL CONVERT 8 “BIT BINARY MUPEER TA TGNED 
sDECT TUNER. Or the BINARY NUMBER MUST BE 
HEAL MOV #PNTR, -(SP) ;;POINTER TO LOW WORD OF BINARY NUMBER 
1% ISR Po gesou2D 
1 RETURN ;; THE FIRST ROORESS OF ASCIZ 
31S ON THE STACK 
SDB2D: SAVREG 
2(SP),R2 Pte batR. Po 
SSDECYL, RO $3 “SEM STRING 
RO, 2(SP} biGT OF aac 2 STRING ON STACK 
(Re)+, Ri +E PICKUP BINARY NUMBER 


4§: 


gh gutSns*s mma Sseesees 


(R2)+.Re 
010.045 ;;SET UP TO 9.00 10. Cony CONVERSIONS 
RY : : ADDRESS 


),Re 


{ 

Re 

5 

es 
(R4)+,R1 
ce 

(RS 

8'0 

( 

0 


(RS)+ ;;MOVE TO NE 


PARTIAL 10 ASCII 
ee 


ESOS TRACT TEN POWER 


185 F TEN POWER TO LARGE 
;ADD 1 TO PARTIAL 


SEQ 0107 
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+ nae +38 IF NO 
ox RESREG Hes. TORE. REGISTERS 
553 STNPWR: 145000 a. oo 
: 35632 
a: are ;;1.0€08 
+x" 11 ;31.0E07 
oJ 230 
55 041100 ;;1.0E06 
55.35 17 
954 ‘ke ;;1.0€0S 
3 63420 331.004 
55 1750 ;;1.0€03 

'’ ;;1.0€02 

le ;;1.0€01 

4 ;;1.0€00 

SDECVL: .BLKB 12. ;;RESERVE STORAGE FOR ASCIZ STRING 





-SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 


;  pepneuenpenennqnesesssnsensnecneuacsnnsenesnesesqsesssetesses 
tL ATHIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER T 
; UNSIGNED OCTAL ASCIZ NUMBER. 


te MOV #PNTR, -(SP) 5 sPOI T WORD OF BINARY NUMBER 
1 i JSR Lares 9 CALL THE Rot tiNe 
* RETURN ::THE ADDRESS OF .THE FIRST ASCIZ CHAR. IS ON THE STACK 
$DB20: SAVREG ; 
REV 2(SP1,RL gf ibiCue THE POINTER 70 Low won 
dl 99 
HOY Bee RS HDD E BIEVEN CHARACTERS 
NOY RIS RO + Oe 
MOV (R1)+,R1 Bee WORoe 
CLR Re 33 TERMINAT' 
1S: MOVB = Re, -( RS) > ;PUT TER IN DATA TABLE 
pee RO, Re 33 Ve : IT 
. RY 33 
3$ 33 TbIGHT 
BEQ es ss 7 Ol 
INC Re 3 INTER FO FOR FIRST 
MOV ,e(SP) 3 
RESREG is ALL GISTERS 
RTS PC TO 
2S: ASR R3 ITION MASK FOR THE LAST DIGIT 
3$: ROR Rl Ps Att THE BINARY NUMBER 





DZRNTASPLL ed -J ST Bee nT OoBLE LENG ‘oF ofl 4o°RRSlett dbhvert Agutine™ = 14° a 





006000 ROR RO $3 THE NEXT OCTAL DIGIT 
a 5 
mR 
BIC R2 : MASK OUT ALL JUNK 
062702 000060 ADD 2’, Re *:MAKE THIS CHAR. ASCII 
Spooie if + Rocce bata yee 
SOCTVL: .BLKB 14 HH DATA T 


-SBTTL SCOPE HANDLER ROUTINE 
ee ae rg 


uaresTs, It ae : DISPLAY ?: 0>) 


ING OF 5 
Ebb NTO 
ia nee hee 45: 08> 
ee Bato THIS ROUTINE 
#CALL 







SS8Y4 
3 
ae 
List te BIT TIONS 
; 1 t IN SWR(7:0> 
+i SCOPE ; ;SCOPESIOT 
SSCOPE: 
104407 CKSWR IN SOFT-SWR 
i err 040000 156562 1S: BIT 81714, 2SHR TEST? 
1 - 8888R8START OF CODE FOR THE XOR 
ii wanes SxTSTR: GR aioe (hop=eN) 
{ 13739 Boeaee HOV SSS OMERAVER sep saecal apt a 
000004 MOV 
ip 177060 TST 33177060 
18 O2e414 000004 HOV (SP)+, 98ERRVEC ; VECTOR 
3. cs: CMP (SP)+, (SP)+ HH A TIME OUT 
rd 000004 HOV (SP)+'a : CTOR 
lee 3. 6S: wawunenO OF CODE FORTHE xR 
ei 000400 156514 BIT 881108, ISWR ssl 
ee , 156506 OO1116 chee SSun, sTsTIn H SWR<7:0) 
ees, 001117 2s: T TB LG ; a OCCURRED? 
ove 001131 001117 ea. ,SERFLG ;;MAX. ERRORS FOR THIS TEST OCCURRED? 
ae 001000 156456 Bit 1709, aSHR Ho H ERROR’ 
ei 001124 O01122 7S: HOV RR,SLPAOR ;;SET LOOP ADORESS TO LAST SCOPE 
2510 1 001117 4§: CLR =‘ SERFLG 5 ;ZERO THE ERROR FLAG 
mean 001174 cLR STINES +3 THE Nu NUMBER OF ITERATIONS TO MAKE 
004000 156424 3S: BIT #81711, 2SWR :; INHIBIT TTERAT TONS? 
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001216 


Bo114 01120 


1 001120 
74 


000004 000002 





BNE 1§ ;;6R IF YES 
eH SPASS 3 F FIRST 
INC low He 
ee IMES, SICNT 33H 
1S: MOV 81, SICNT HH 
MOV »STIMES 3; 
SSVLAD: INCB HH 
reve FSI STES™ e 
), 33 
MOV (SP) 3 
a 33 ADDRESS 
nov 81 vil ALY ALL (1) ON NEXT TEST 
_ MOV Spine ours ; He 
RTI Ht eg 
SMXCNT: 2000 NUMBER OF ITERATIONS 


-SBTTL TRAP DECODER 
JHE 


EN follibec ae E HOLE TERE [ie ait erat as 


ee pot NE. THEN USING THE ADDRESS OBTAINED it WiLL 


ico TO 

STRAP: MOV RO, -(SP) ; ;SAVE_RO 
MOV 2¢SP), ::GET TRAP ADORESS 
TST -(RO) 33 BY 
MOVB (RO), RO IGHT TE OF TRAP 
ASL RO ::POSITION FOR INDEXING 
MOV STRPAD(RO) ,RO + TNBEX TO TABLE 
RTS RO G0 TO ROUTINE 


;;THIS IS USE TO HANDLE THE “GETPRI™ MACRO 
STRAP2: MOV (SP) ,- 
MOV 4(SP}, SPE Rove tte Peo BOWN 
RTI RESTORE THE PSW 
.SBTTL TRAP TABLE 


;#THIS T CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;#BY THE ” INSTRUCTION. 


; ROUT INE 
$TRPAD: .WORD S$TRAP2 


STYPE ;;CALL=TYPE TRAP+1(104401) TTY 1 fPEOUT ROUTINE 
TYPOC ;; =TYPOC eerste) TAL ( 
TYPOS ;; =TYPOS TRAP+3( 1 ) TAL ( 

STYPON ;;CALL=TYPON TRAP+4( 104404) TYPE OCTAL NUMBER ( 

STYPDS ;; =TYPOS TRAP +S ( 104405) CIMAL NUMBER (WIT 


SEQ 0110 


109 
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022712 021364 SGTSWR ;;CALL=GTSWR § TRAP+6(104406) GET SOFT-SWR SETTING 


N N TRAP4+11( 104411) TTY TYPEIN NG ROUTINE 
gp HRSatiPn) Rito pat 
. 1 ROUTINE 
STERN=. -STRPAD 


1 ; ) RE 
;;CALL=DISPLY TRAP+14(104414) ROUTINE TO TYPE ERROR ME 
5 9 JHHNHIHHHHIHIHIHHHHHHHHHHHI HHH HHH 


a ape RRR TRESTSIOSTD, TF S0B A ATP 


Bren rrr 


-SBTTL SINGLE/DUAL PORT RH70/RMO3 DRIVER (REV 1.0) 


iBtart Bicr a r EauTPreNT CORP. 


AUTHORS) e JIM LACEY/CHUCK HESS/C. CHEN 
55 MEARE SESE SE SESE SS ES J a a a a aa 


STORAGE FOR. REDS, RMER1, RMER2, AND RMMR2 ON AN ERROR “2” 


38 
he 
-O 


: 


R 


; TABLE OF pars ACTI 
F 





US_INO ( A=8 BYTES) 
T IF INE OR NONEXSITENT 
TA> if 
TACO IF 


EEE NaS 
wae 
A 
sae F 


=a 
at 
mm 
ooo00o 
Bees 
AMMA 
£wre-oO 


a 


JOS 


SEQ 0112 


y 

Sus 3 
is » #: 
x 5 Ro og & 
= a % 2D & aig 
3 2 fe m of 
aa 5 a 5 Ete 
é e es 22 (Ba 
= = 4 tin - pats 
BS mn onmmrinn BEE omer 88 omen Goat 
Te ESE ge eeeeEES Ban sewewee ES wee e8S 
“5 BE bbe SESSEEES cen SSRRSRES GEE RMRRRRE BE _pDY 
z wis EEE : Bhs 
= w aiid Raa : wgtai 
2 = = tS Be eet 
utd — = oe 

th A = mon 
y Boe Rees cece SS ceeeeer HU eee Set g Ge 


BILITY 


xs 
s =. & f : : : 


vanity 
S 
; TABLE 
TYP: 
ABLE 
INT 


RMO3 DRIVE 
15:44 


The 


2i-Ji 


B88 88888888 SSS88s8e SSsssess : 
8 
ey 


ks zk oo 
3 DEEDES DSS OSE: ReE cher REPROD PEREPPE IVE FESR 


1-DZRMI AO 





~ 
Pil 
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023012 000000 


023014 


023015 000 





023040 177777 


E 
B 
2 


SRCHWT: .WORD 0 
;RMO3 DRIVER ACTIVE FLAG (ACTDRV=1 


TRUS BRIER 48 ASAE 


ACTORV: .BYTE O 
phoma A T fee eR Round VE _FLAG (ACTSTR=1 BYTE) 
Se TARE TIMER ROUTINE “Is INACTIVE 
iACTSTROD IF SOFTWARE TIMER ROUTINE IS ACTIVE 
ACTSTR: .BYTE O 


sahgrr FULBELGsd TE fo ULB UNLOAD COMMAND 


SEEDELECO IF UNCOAD COMMAND IN WATT GUEUE 
ULDFLG: .BYTE ; ;DRIVE 0 

Be Be A 

‘BVtE “ DRIVE 4 

: 0 :DRIVE S 

“BYTE 0 iDRIVE & 

‘BYTE 0 : DRIVE 


R OF LOOK AHEADS PERFORMED 


g 
= 
S 
5 
3 
m 
= 


4 Ot tt 


~~ MMMM mm 
NOW £WMr-O 


; SAVE “om F te eS RH?0-RNOS REGISTERS WHEN THE 


TED AS PER (DPB+14 
ai REGISTERS, AS PER 
toPeei4), if 


SAVEFG: ‘wore 0 


; SEEK ( Crh WORD ) 
FOR An’ WHEN THE 3 ADDRESS ISN’T IN THE WINDOW 


TA_TRANSFER ST 
SEEKE GC Tr Dora Ti TRANSFER WILL DO IMPLIED SEEKS, 


SEEKFG: .WORD -1 





LOS 
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; TIMEOUT TABLE (TIMER=8 WORDS) 
;THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 


1 a 
“WORD -1 

;DATA if Mere NDICAT 

OA CMERE. e — TES DATA TRANSFER UNDERWAY ON DRIVE N 


; ATTENTION BITS T (ATABIT=8 BYTES) 


; THIS CONTAINS THE CORRESPONDING BIT TO EACH DRIVES 
‘ATTENTION BIT 
ATABIT: . l sDRIVE 0 
‘ ‘DRIVE 1 
: 4 ‘DRIVE 2 
“BYTE 10 ;DRIVE 3 
‘Bre Sp DRIVE S 
; 100 ‘DRIVE 6 
“BYTE 200 ‘DRIVE 7 
sFSRNO3_T ” CONTROL BUS PARITY ERRORS” (MCPE) ALLOWED BEFORE 
‘ CALLING T eat AL CREEERXC WORD) 


) THE _RH70/RMO3) 
C (THE VECTOR ADDRESS (254)), AND RMVEC+2 (THE BR LEVEL (5)). 


;MAXIMUM NUMBER OF LOOK AHEADS ALLOWED IS 4 (MXLACT=1 WORD) 
MXLACT: .WORD 4 
;MAXIMUM DELTA DELAY IS 8 SECTORS (MXDLTA=1 WORD) 


MXDLTA: . 8. #64. 
;MINIMUM DELTA DELAY IS 2 SECTORS (MNDLTA=1 WORD) 


MNOLTA: .WORD 2#64. 
;MAXIMUM SEARCH FOR 170 WINDOW IS 5 SECTORS (MXWNDW=1 WORD) 


MXWNDW: .WORD 5S 
;DEFINITIONS OF THE RH70/RMO3 ADDRESS INDEXES 
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; 


S REGI ft (DRIVE REG. 00) 


aH peaiar fe (NO VE_REG) 


RDOR’ ri TeTER t CORIVE. REG. 0S) 





ait 





+ FORD 
; WORD 
8 
1 10 457 sTER 82 ( TA ORIVE REG) 
ss i Ror, OR SDH cease aly 
ook ae x agen 04) 
RMMR 1 = bata NT i ey, 
#3) oy 
roe ; net, 10) 
Anpc= sd ROORESS beallien (ORIVE REG. 12) 
RMHR=36 s URRY mainrenane fects ER (DRIVE REG. 
RHERBZE 15) 
sEtk posttGn Pelee dee 3 i$} 


2 
gi 


;RH70/RMO3 DRIVER te tg tt a 
A ROUTINE WILL DETERMINE WHICH RMO3 DRIVES ARE 
DRVSTA INDICATOR 


sore, THIS ROUTINE CALLS DRVINT 


CALL 
: JSR PC, RMINIT 
RETURN 
*NOTE: THE ’P’ OR ’L’ CLOCK MUST BE STARTED 
AMINIT: SAVREG RO - 
aePs, -(SP) i SOVE THE SSOR STATUS 


BcSE2.), J0PS 
a 


Ife pe Reaibet our TY TO oe 
i 


1S: (R1)+ 

RL Re ~~ | 

43 ru R2 ee » 
2s: 8-1, (R1)+ 


R1,Re 


TA ALL. DRIVES TO OFFLINE 
TA+2 


T 
C ;SETUP THE RH70/RMO3 VECTOR 
Re tR3)+ 


RMVEC+2, (RB) 
RMADR, R4 ;FIRST ADDRESS OF RH70/RMO3 





Ee bi mmininins bine ale be 
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576 o12764 000040 000010 MOV SBITOS,RMCS2(R4) ;MASSBUS INIT 
35327 1 “" re anal ‘tan WITH ORIVE 0 
ede §=6O00 ; : ' T OR PARITY ERROR 
es 1040e BR 
3 10508 4§ CLRB ACR) P's BTUs TO OFFLINE 
ee cs INC GO T ext I 
é BIC 81C7,R1 sk ITs a 
es MOV 87, RI Star i 
ok 6$ eRe INT(R1) Pegi LF ok 0 SWITCH PORTS ? 
x Q T WAIT 
; Baa PUES nn 
led, 7$: is tNT(R1) ie SHIT s? 
gS: C R *GO TO THE IVE 
pee tre cK NEXT 
MOV (SP)+, a8PS “RESTORE THE PROCESSOR STATUS 
Reares Pc : RO - RS 
f 
DRIVE INITILIZATION ROUTINE 
; THI INE INES IF A DRIVE EXIST AND IF IT IS 
> AN FIT IS, a® iN IS ISSUED AND FMT22 
315 SET 10 A "1". THEN MOL, W ARE CHECKED TO 
‘INSURE THEY ARE ALL ON A “1°. AND ING ON THEIR STATE, 
pas :DRVSTA IS SET TO THE PROPER CONDITION 
: SORVNUM, R1 ;DRIVE TO R1 
; toy RMADR, R4 IU Bos ROORE OF RH70/RMO3 (RMCS1) 
; JSR RO, ORVINT ; BY 
: RETURN ERROR D (PARITY) 
: T ; NORMAL 
0 DRVINT: MOV RS, -(SP) : 
eae 022750 DULP:  CLRB DRvSTAC RL + RAT IVE E STATUS QS OFFLINE, 
i t Cesc cL ULOrL (R1) ele te HE URL ORO FLAG 
t a1 eer CRY) IBS ORT (& SEIZE DRIVE) 
Mifecrd eet Bi He  enese CR) *s Ve “ 
030364 a pC, SET. IE “TRE” 
022750 1S: DRVSTACRI) : ET Ive ecu an OFFLINE 
004000 00000 T Bip POCSICRY) i DRIVE | F 
Q DULP I 
027674 TSR RO, RO.RM THE DRIVE. is Ita 
4 8s ; RETURN goone ss 
MOV (SP)+,RS : VE N 
t 000004 022760 MOVE 84, ORVTYP(R1) e pray INS TEATOR 
022708 020024 CMP 820024, RS : INGLE PORT RMO3 ? 
I BEQ 2s BR IF YES 


MAINDEC-11-DZRMI AD/00 
OZRMIA.P11 






cs 
Bes 


eee 


be hee he 


oO~ 
BS 


SFRDS SESS SISS SECESSION 





—el-SL-77 15:44 
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024024 RS PORT RMOZ ? 
Gr ioe Fe 
177777 022760 nove Be1,DRVTYPCRI) 1 TNOTCATOR TO ’OTHER’ 
900121 2s: MOV #121,-(SP) 50 A “READ-IN PRESET” 
ISR RO, WRT. RM 
est 
01 MOV eB1T12, -(SP) ;SET FMT22=1 
030054 JSR RO, WRT.RM 
QS 
027674 Jk RO, RD. RM ;READ RMDS 
e 
MOV (SP)+, RS ;ANO SAVE_IT_IN RS 
BPL IF ATA=0 
023064 000016 MOVB  ATABIT(RI), rns ch) - CLEAR RTTENTION BIT 
027674 JSR RO, RD. RM FINO OUT WHY 
Ra 1 
ROL (SP)+ ;1S 1T UNSAFE? 
mm me Biter 
1 022750 Hove #-1,DRVSTACRL) INDICATOR 
4S: COM RS : Moe es DPR, DRY, AND VV 
167077 BIC #¢C<BIT12!B1T08! b 1107181 > 
000001 022750 ae ee DRVSTA(RI) OR TA rt i a. 
6S: ist (Rb) ae ave chet Ont fe 
7S: ASL R1 : INDEX TO ADDRESS WORDS 
003720 023042 HOV $2000. , TIMER(RI)' | START g Sec TIMER 
177777 022770 MOVE = 8-1, DPINT(R1) CET PORT INITIALIZE INIDICATOR 
8S: MOV (SP5+,RS “RESTORE RS 
RTS RO 3 
;REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 
* CALL 
, 
: JSR RO, 2#RMO3 CALL 
: PNTAOR : t ROORE Ce PMB INTER 0 OF DRIVES PARAMETER BLOCK 
: RET ire fF fesuest of Uh QUEUE OR THERE 
31 
-(SP) CALL ING 
rt i an ce SHAN 28 resus 
1 023014 Ove #1, Lae TVE_DRIVER™ FLAG 
MOV (RO), Re I Tye. 68 PARAMETER BLOCK POINTER 
000016 CLR 16(Re) : CLEAR TH S BTUs ERROR INDICATOR 
023076 MOV RMADR , R4 : UNIBUS AobRee AVE NeneST 
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022750 TSTB DVSTACRI) 5 CHECK DRIVES STATUS 
023016 FeTB G(R1) OAD IN QUEUE? 
022770 Fre OPINT(R1) ie NG ies INIT THE DRIVE 
023326 aan BS, DRVINT iG foe DRIVE 
022750 oo DRVSTA(R1) 1 DATUS ONLINE? 
023000 1S: rere (R1) i0u NG PORT REQUEST FOR THE DRIVE ? 
3BR 
102 3 RO DRVGUE 7 g REQUEST IN QUEUE 
000103 00002 cHPe 8103, ,2cR2) ne FOR AN UNLOAD? 
baerag Oe og, «=e CDavacT(RI) e WeRCTIVe? 
bi! 024112 is PC, OPT i iF ve OPTIMIZER 
bt i 120000 000016 3S: HOV SGITIS!BIT13, 16(R2) jSET THE “UNLOAD IN QUEUE” ERROR FLAG 
Hi 025172 4s: ISR PC,CI7 GO HANDLE THE PARITY ERROR 
114 031026 Ss: FQ, DRVOLE ;PUT REQUEST IN QUEUE 
a 000100 F 1706, (R4) eer 
118 030364 ISR ,SET.IE SET THE INTERRUPT 
He 022750 6$ STB ie iar ORIVE OFFLINE OR UNSAFE 
1 140000 000016 MOV ITIS!BITI4, 16¢ T INE ERROR INDICATOR 
61 022760 TSTB ——d ORVTYP(R INE OR NONEXISTENT 
i: 100002 000016 Rov cca wd S16 On “barve NONEXISTENT 
6 110000 000016 73: HOV ec #BIT1S!BIT12, Leth a Is 
et TST coe Se 
3 ibs: Re srec (RO)+ pacay * “Come RETURN ADDRESS 
61 023014 “  €LRB — ACTDRV eee “OCTIVE DRIVER” FLAG 
61 177776 MOV (SP)+, a8PS “PS” TO LEVEL 
bi RTS RO TURN TO 
: gOPTINIZER-CALLED FOR A ae DRIVE 
ei ;CALL OV. BDRVNUM, RI ;DRIVE NUMBER TO Ri 
plat ; JSR —«- PC, OPT SETUP A COMMAND 


6143 Oe4112 104412 OPT:  SAVREG ;SAVE RO - RS 
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iss 130 edt AA 023012 Bice aTPStTCRL), secs 
Bia? Gout il Sen” Be GE TREO et 
cis 1 T t Re TIN QUEUE? 
ei i 1b164 000010 MOV _—-RI1, RMCS2(R4) 1 THE bRive MOORES JHHBHHES 
He rae Bod By iain hn i aie 
ei 1 022750 10S: ac BAVSTACRI) HE Brive 
He Ble Boe RUBS ist Sift DELL AR 
a ° 140000 000016 igre selits iBITAM, toch oh STAT INDICATOR 
pies Geel) [tie 2 ig er det 
160 aE 1276 ; 110000 000016 HOV agITIS!BIT12, , 166 STATUS/ERROR INDICATOR 
0 Bocadegme 18: moval. -cSP) 080 COMMAND ONTO THE STACK 
be et ee sn: 

’ : 
big? : Bir #BIT11, (RY) DRIVE AVAILABLE ? 
bigs De ooooc2 CHP #150, 2(Re) fe NRE OUEST FOR 1/0? 
cifs Ne JSR ,CI4 ; oon INITIATOR 
ef * oye a ey PORE 
He ie ar ee 
178 OE a a RETURN HERE. ON A PARITY ERROR 
bi Yet BR 4S 160 TART A 
18 le 3s: ISR pC,CIL START A DATA TRANSFER 
He e 4S: ISR PC,CI3 sSTART 8 4 
164 Ge 023000 SS: MOVB  #-1,DPRQS(R1) ; 1 PORT REQUEST T INDICATOR 
cise os: vy Re sCONVERT To NOEX 
ei Nc 023042 HOV #10000. , , TIMER(R3) od ora T 10 SEC TIMER 
He a a Cs 
bie y JSR PC, SET. IE SET "IE" WITHOUT A “TRE” 
oa 8S: WV (SP)+, a8PS estore PROC. ge nts 
1 RTS PC 
if: ;COMMAND INITIATOR 
6199 ‘CALL 








E10 


SEQ 0120 


w * 
3 3 
e Gs e = 6s ; 
2 e a ee ee a 
x 6 = bg 3 » $ ba 5 E : 
' &. #8 aS goof ee CG 
oa ee | HE “on 
3 oS fue © z 5 # oe ie 
44-4 Pet of Hg Fae 
" on = . 3 ar a _ =o 
Hii Geta § ile Bel 
im z 
25 > +45 =~ =~ >a. 20 & + 
if oj fete fe fe x eo ok oR ae 
sesee eck Beto: os WE a ae 
Heplocs 5 es 8s Mise Settee = EES 


MOV ~—s- SOR VNUM 
itm 


Sis BEBEeeapanEnanPoeslssecrene SausacEn nan tnR. an8 


3 
_ 
oO 


C13 
$: 
CI4: 


~~ COPA OT TY al Bla tary 1 





pasos | ° - - , 

—— 

ra 

o= O-UNT NON me 
ed dd od od eg, ye I t 

iRise 





F10 


MAIN™=C-11-DZRMI AD/O0, RMO3 DRIVE COMPATIBILITY TEST MACY11 30(1046) 21-JUL-77 16:51 PAGE lee SEQ 0121 
OZRMLA.P11 21-JUL-77 15:44 SINGLE/DUAL PORT RH70/RMO3 DRIVER (REV 1.0) 
000131 #131,R3 ;1S IT A SEARCH COMMAND? 
iTOAD DESIRED 
000010 10(R2) ,-(SP) ;LOAD DESI TRACK & SECTOR 
0300S4 RO, WRT. RM 


$105, R3 iTS #3 PA SceK SEEK COMMAND 


000105 18: 
‘LOAD ey na el CYLINDER 


e 
a 
agp pay 





Clb 
000115 3S: 115, R3 i1s I an “OFFSET” COMMAND? 
027674 RO, RD. RM t MERGE OFFSET VALUE INTO RMOF 
RAD BUT DON’T CHANGE THE UPPER 
990001 MOVB  1(R2), (SP) ;BYTE WHEN LOADING THE 
JSR RO, WRT. RM *REGISTER (RMOF) 
ct 
000107 4S: cHPB t167,R3 ils eo FT" a "enecaL la ene” COMMAND? 
000117 CHP 4117,R3 I alk TO CENTER? 
000103 cre #103, Ra iB IT Ait "UNLOAD" COMMAND? 
gg, cero Baer B eae 
1 023016 HOV #1, ULDEL LGCRL) tL ne van epouRess” 
030054 JSR Ra’ WRT RN 
Sl 
CI? 
RTS PC ;RETURN TO USER 
000143 SS: CMPB 8143, R3 “IS ITA eset FORMAT” COMMAND? 
027674 em RO, RD.RM in iD tHe OFFSET REGISTER 
CI? 
Di 900001 000001 MOVB 1(R2),1(SP) ;COMBINE “FMT22","ECI", AND “HCI” 
e. JSR RO, WAT. RM ;LOAD “FMTee", “ECI™, ANOVOR “HCI”. 
Det C17 
De BR 128 
3. 000141 6S: cHPB a141,R3 Biota =Ger REGISTER” COMMAND? 
000006 7$ MOV 6(R2),R3 Fey te Ea WHERE 
10 oe2so42 MOVB  10(R2),9S INIT. THE FIRST REG. 
ii MOVB = 11(Re) ‘RS : T REG. of MOVE 
74 8S JSR RO, RD.AM *READ Raa 
93 RMCS1 INDEX OF REG. TO Rea 


























MAINDEC-11-DZRMI AO/00, RMO3 DRIVE COMPATIBILITY TEST MACY11 30(104%6) 21-JUL-77 16:51 PAGE 123 SEQ 0122 
OZRMIA.P11 21-JUL-77 15:44 SINGLE/DUAL PORT RH70/RMO3 DRIVER (REV 1.0) 
C17 
MOV (SP)+, (R3)+ ;GET THE CONTENTS OF RH70//RMO3 REG. 
CMP 33 RS LAST READ? 
o2so042 foo 9S it Bi, BY 2 
: #14S,R3 H T ? 
° cps - be Re voSeLRCT OR DRIVE” COMMAND’ 
° 4 = 
| Fasidhhy | HP NE como 
1 
C17 
coors “S* gis = Satroyelecre) Ser THe “DOM BIT 
eae SAVEFG’ ove FAZO/RPOS REGISTERS? 
; Toh Pe, SVRH7O iVES--G0 SAVE. THE REGISTERS 
es 138: kis pC’ RETURN 18 USER 
3: 023042 : nov $1000. , TIMER(RI) ;SET A ONE SECOND TIMER 
® 022740 MOVE  81,DRVACT(R1)  ;SET THE DRIVE ACTIVE 
bd RTS RETURN TO Ate USER 
©. Clé: MOV RS," (SP) *LOAD THE 
LF JSR , WR RM 
k RMCS1 
C17 
: % 000010 CI7: Bi eine, RMCS2(RY) eh ORE NON-EXISTENT ? 
: 1S: TST t ANYTHI SN QUEUE ? 
: $ Q CI7B *BR IF NOT 
>. 000016 MOV 881T1S'BIT11, 16(Re) -SET “PARITY” ERROR INDICATOR 
2S. JSR PC : Saye HE RH70/RMO3 REGISTERS 
ese CI7B: MOV sili. -(SP) : “ORIVE CLEAR” 
leSe JSR RO, WAT. RM 
leSest RMCS1 
ese cee PC, EMPTYQ EMPTY THE QUELE 
CLRB  - ULDFLG(R1) *CLEAR THE UNLOAD IN QUEUE FLAG 
eS. CLRB DRVACT (RI) : DRIVE Is 
CMP 1, DTUM :TF THI HAD AN 1/0 REQUEST 
BNE 1$ IN PROGRESS CLEAR ALL OF THE FLAGS 
5S eset CLR TRNSWT 
6 ede 023062 #-1, TUM 
1S: RTS PC 
59 005s oooo10 BIT” spttia,ancsacRy)’ c1S "NED" SET ? 
a a. oi 
CLR 
022740 1S: TSTB T(RL) ;DRIVE ACTIVE? 
Q *BRANCH IF NO 
“ie BB Be ASHla"® ——iEtd Ts ORI eat Bn 120K process 
pape fro Ct«OS i BARNGH IF OYES | 


Baie 


EERE EE TEST ee en 


SESEEEESE 


= 






000010 


023062 


000010 


023104 


H10 
SHE Sy RER,PVE COMMER IT IER MEARE en Mali SSeS! PE 12 


031102 


SEQ 0123 


PC, GETREQ ;GET THE DPB POINTER 





2s: I] FOR DRIVE ? 
BIT #B1T12,RMCS2(R4)’ j'NED. SET 
Rov Serristorro1, isc) itt Fone NON-EXISTENT’ INDICATOR 
3S: HOY ser 1152 'BITIO, 16(Re) bisa PARITY” ERROR INDICATOR 
4g: MOV e-| TIMER(R3) 57 TI _ 
CLRB Davi TRL : “Oni TIVE” TO IDLE 
CMP 1, DTU IS THIS DRIVE SETUP FOR A TRANSFER 
SOY ss .DTUW iPecey fe Rs NDICATOR 
CLR : 
Ss: CLRB eicas) 
BIT seiTie, , RMCS2(R4) m "eos wert ? 
INC Ri a MOVE TO THE NEXT DRIVE 
BIC ##¢7,R1 
$ ;BRANCH IF MORE DRIVES 
MOV $-1, DTUW NO DATA UNDERWAY 
Sh : SEAR ALL. OF AL OF Te, REQUEST QUEUES 
HOV a5tT05, RMCS2(R4) e's bel INIT. 
6S: JSR PC, EMPTYQ SCPE AR DRIVE’S QUEUE 
CLRB  DRVSTA(RI) SET IVE TO OFFLINE 
CLRB  DRVTYP(RI) : DRIVE TYPE INDICATOR 
7S: ISR PC, SET. IE *SET "IE" WITHOUT “TRE” 
RESREG RESTORE RO - RS 
RTS PC : RETURN 
LOOK AHEAD ROUTINE 
:CALL 
: MOV SORVNUM, R1 DRIVE NUMBER 
: MOV #O0PB, Re ‘POINT TO DPB 
: JSR RO,LA GO CHECK THE WINDOW 
; RET ERROR RETURN 
: RET START A SEARCH 
: RET START A DATA TRANSFER 
ae ei eo: a 
JSR RO; RD. RM REDD DRIVE STATUS 
Bic te (SP) ; sin eminent _— 
EE lath * mace 
INCB PRCNT (R1) INCREMENT THE LOOK AHEAD COUNT 
CHP ACNT(R1), MXLACT’ DPR? : 
MOVB 10(R2),R3 GET DESIRED SECTOR ADDRESS AND 





MAINDEC-11-DZRMI AO/00, RMO3 DRIVE COMPATIBILITY TEST MACY11 30(1046) 7%) 16:51 PAGE 125 
OZRMIA. P11 Ae bert 15:44 SINGLE/DUAL PORT 1305 SRR VER” 
b4e4 SWwAB.SséRRD hae 7 ree WITH 
a aC BSR R3 LOOK AHEAD REGISTER 
5¢ MOV #340, 28PS sPRIORITY LEVEL “7” 
6$ ISR RO, RO. RM READ LOOK AHEAD REGISTER 
: “me 
33%. CMP (SP),RMLACRY)  ;CORRECT LA NUMBER ? 
64 = BEQ 7s ; 
a ~: ry yr “NO, CLEAR STACK 
7$ (SP)+,R3 CALCULATE THE DELTA 
ey 2 i #64.>,R3 THE DELTA POSITIVE 
By ah 1S: cup mxoc TAR : OEeK He BELT a 98 
64 ss: BLT 3S i IT IS WITHIN THE 
5 023110 cH MNOLTA, R3 : WINDOW-—-- IF ZERO 
3$ THE LOOK 
: 023026 2S: CLR LACNT (RL) AND TAKE THE 1/0 EXIT 
cay GBeers 3S: 131 (RO)+ jADJUST THE RETURN ADDRESS 
025172 4S: J C17 SS THE ERROR 
cs: RTS F Proves 
s INTERRUPT SERVICE ROUTINE 
6 4: 000001 023014 ISR:  MOVB_ 81,ACTDRV ;SET “ACTIVE DRIVER” FLAG 
Jes SAVREG ‘SAVE RO - RS 
023076 MOV ADDRESS OF RHSCS1 
023062 MOV DTUW, RL GET “DATA TRANSFER UNDERWAY” INDICATOR 
: BLT 1$ fig A TRANSFER UNDERWAY 
025746 JSR PC, TD 
D BR 2s “EXIT 
026116 1S: ISR PC, SC i CALL one AL CONDITIONS 
; mea Cre VE BR 
023014 ACTORV "CLEAR “ACTIVE DRIVER” FLAG 
1 025744 RTI + RETURN 
; TRANSFER DONE ROUTINE 
TD: CLRB T(RL) :SET ACTIVE INDICATOR TO IDLE 
nes 5 199979 023062 HOV £1, br Rb OB TA FRENSE ERS UNDE RIIR® 
Y 177777 023042 HOV #-1,TIMER(R1) | ;CANCEL TIMEOUT 
10 MOV A GET “DPB” SS FROM THE 
71 Oes 10 CLR T *TRANSFER WAIT QUEUE--CLEAR QUEUE 
900200 000016 BIS #B1T07, 16(Re) T 
90001 MOV RI,RMCS2(R4Y) SELECT DRIVE 
eM RMCS1 
CI? 
pt ROL (SP)+ 
pia BMI 33 BR IF YES 
64 023036 TST SAVEFG SAVE THE RH70/RMO3 REGISTERS? 








SEQ 0124 


J10 






MAINDEC-11-DZRMI AD/00, RMO3 DRIVE COMPATIBILITY TEST MACY11 30(1046) 21-JUL-77 16:51 PAGE 126 SEQ 0125 
DZRMIA.P11 21-JUL-77 15:44 SINGLE/DUAL PORT RH70/RMO3 DRIVER (REV 1.0) 
100002 BPL 1S ;BRANCH IF NO 
004737 030246 - ISR PC, SVRH70 :YES--SAVE THE REGISTERS 
031102 ; ISR PC, GETREQ GET POINTER 
5 sr Re sENTRY OR ORIVE ? 
aH 7 wane sata fl 0 Me aR ves 
-THE RELEASE DRIVE IS F T FOR DUAL PORT OPERATION 
oe7i4 000113 2S: MOV #113, (RY) ; UR 
14 BR *CHECK FOR IVES 
O5e7be 490100 000016 3S: BIS 8B1T1S'BITOS, 16(Re) ;SET DATA FLAG 
30 1006 ISR pC ENP TYG iene ty TH “DRIVE’ WaT” QUEUE 
neat att MOV aaNet cy ) : SoU A “DRIVE 
12714 000113 MOV #113, (RY) “I A RELEASE TO THE DRIVE 
BR Sc “CHECK FOR OTHER DRIVES 


;SPECIAL CONDITION ROUTINE 
SC: MOVB RMAS(R4Y),R3 ;READ “RMAS™ 





BNE : H IF ANY 'ATA’ BITS SET 

JSR ,RO.RM : CONTROL AND STATUS REGISTER 
EEO 8 
DD B (SP)+ 51S “IE"=1? 
5508 FoR «RO, ES. SAV ‘Shut THE ADRESS. IN’ "SESCAPE” 
ERROR Vee 3 BOVE THE, OOPS INTERRUPT 
* ISR PC,SET. IE SET INTERRUPT ENABLE 
CLR (SP) ;PROCESS ALL ORIVES THAT HAVE 
oe se ;AN “ATA*=1 
CLR Ri’ 
SC3: IT R3, (SP) sATA=1? 
SCY: NC 3S *MOVE TO THE NEXT ORIVE 
5 BECO “BRANCH IF MORE TO CHECK? 
= es : ; 
Ss a en ea 

SCs STB DBINT (RL) : INITIALIZING THE DRIVE ? 
IMP $¢13 *PROCESS THE DRIVE 
1S TSTB DPRQS(R1) *PORT REQUEST OUTSTANDING ? 
ef Rady 0 
3ST 


as: Bie fitlmm — /ee He MITTIN 
: 5 
ae ie LG(R1) *UNLOAD IN ies? 
BLE BRANCH F rppore 
JSR ,GETREQ GET DPB POINTER 
ISR PC; SVRH70 :SAVE THE RH70/RMO3 REGISTERS 





MAINDEC-11-DZRMI AO/00, RMOS DRIVE COMPATIBILITY TEST MACY11 30(1046) 21-JUL-77 16:51 PAGE 127 SEQ 0126 
RH70/RMO3 DRI 





DZRMIA.P11 ake? I 15:44 SINGLE/DUAL PORT VER ( se 1.0) 
027060 ISR PC,SC12 ; SAVE 
NIT — 
pay STB DRVSTACRI) ‘BY. Be id aie No 7 
022730 fe hey , RMERRS i ERROR? 
, 
* NO 
3: MOV RMERRS+2, RS *YES -- PI RMER1 AND 
cs: fee Bar RL) Bit ex 1H eon OR ERROR RECOVERY ? 
ISR Pee sci2 Srv RMER2, AND RMMR2 
; Sonat At’ 
6S: TSTB ——- DPINT(R1) TRYING TO INIT THE DRIVE ? 
BNE SCH BR IF YES CHECK ON MORE DRIVES 
Ist TA(RL) i CHECK ON ORIVE’S STATUS 
022734 BIT 1T13, RMERRS+4 ; R CHANGED ? 
MOV $113,-(SP) : 
ms : RO, WAT. RM WR INTO RMCS1 
9 
7S: MOV (SP) RS + PICKUP (RMAS ) OFF ORE THE ERROR CALL 


SR RO, ES. SAV 
i SS erareer ane 


SOE TH COU IN ’SESCAPE’ 


i 
;REPORT 
CK I 
SCb: : on ORT bones 
023042 #-1,TIMER(R1)  ;STOP THE rie te 
ASR Rl j RESTORE IVE A ADDRESS 
: NTER FROM THE QUEUE 
§ 
: 


MOV RL; RMCS2(RY) 
JSR RO, RD. RM THE RMO3’S STATUS REG. 
SC8 
MOV (SP),RS ;AND PUT IT IN RS 
a dae iB IF ERROR 
OE dy 
000016 BIS eg1T1 1S!BITO7!B1TO3,16(R2) ;INFORM USER OF ERROR RECOVER COMPLETION 
1S: ISR RG RO.RM ;READ ERROR REGISTER #1 
Sc8 
MOV (SP)+.RS ; AND IT IN RS 
JSR PC, SVRH70 : STS OURNOS REGISTERS 
HOV ail (SP) ‘ISSUE A DRIVE CLEAR 
RCS 2 Je 
SCbA: ROL RS ;WAS “UNSAFE” CONDITION =1? 


MAINDEC-11-DZRMI A0/00 
21-JUL-7? 15:44 


DZRMIA.P11 





000016 


as Been 


14 
027016 


Sead 





RMO3 DRIVE tate (og TEST MACY11 30( 1046) 


10 


21-JUL-77 16:51 PAGE 128 


INGLE/DUAL PORT RH70/RMO3 DRIVER (REV 1.0) 


18: 


3$: 
SC?: 


1$: 


SySRas nays 


SeRdgoeSRaRaS RES 


8B1T1S!B1 
,RO.RM 

(aps 
1 T 

eeiT1s!B1 
1T12,RS 


a1 
$1, TACRL) 


grouse. , 5 


‘BIT 
(R1) 


LGR 
ATABITCRI 


2s 

PC , POPQUE 

vere’ ° 
G 

2s 

PC, SVRH70 


;BRANCH IF YES 
5B ING_IN QUEUE ? 


TO7!B1TOS, 16(R2) ; INFORM USER OF ERROR 
READ DRIVE STATUS REG. #1 


ACRI) ; 
Tle, 16(h2) ; INFORM USER OF UNSAFE ERROR 
;* --. 1 ? 
BR IF YES 
T(RL) j ACTIVE ERROR RECOVER 
; ONL 


IMER(R1) ;START 30 SECOND TIMER 


07!BITOY, 16(Re) IDLE ; INFORM USER OF ERROR 


; DRIVE I 
) ime N RMOGRESS OR QUEUE? 


A BTTENTION, BIT 


INTO RPCS1 


at “Fat ORES 
:1S DRIVE IDLE? 
NTER 
THE PARITY ERROR 
i PROC 5 THe UNCORRECTABLE PARITY ERROR 
Hint o00 IN P PROGRESS"? 
“BRANCH I 
8 FLAG 
), SRCHut DOING cA SEARCH OPERATION FOR 
BRANCH IF YES 
; REQUEST FROM QUEUE 
i | a 
BRANCH IF NO 


;YES--SAVE ALL OF THE RH70/RMO3 REG’S 


SEQ 0127 





MAINDEC-11-DZRMI AO/00, RMO3 DRIVE COMPATIBILITY TEST MACY11 30( 1046) oe 1a) 16:51 PAGE 129 SEQ 0128 





OZRNIA.P11 © 21-JUL-77 15:44 SINGLE/DUAL PORT RH70/RMO3 DRIVER (REV 1.0 
6648 116164 023064 000016 2S: MOVB ATABIT(R1),RMAS(RY) ;CLEAR ATTENTION BIT 
46137 023064 023012 BIC ATABIT(R1) ,SRCHMT jCLEAR IMPLIED SEEK SET 
023042 pe #-1,TIMER(RI) ; oc 
Rl : pa 
Tp ah : os t dlemendii 
SCl2: MOV Ri RACSE(RY) iSLeCT i 
MOV (RY), 
ISR RO, ORVINT s INIT. THE < OF THE DRIVE 
T Hey 
1S: tat (SP)+ Boe PC OFF OF aT Emon STACK 
SC13: ASL i fi "EBORESS WORDS 
023042 HOV O-1,TIMERCRI) 
MOV R (R4) — SELECT 
000016 MOVB AtAGT ( 1),RMASCRA) : Tre BTTENTION BIT 
1S: TSTB INT(R1) sIN ThA ge DRIVE ? 
pt INT(R1) } NIT_INDICATOR 
JSR , DRVINT intr IVE 
iste DRVSTACRI) ‘ORI oe On Ne oe nen 
T x -- START ORDER 
ee = ; FOR THE DRIVE 
GETRE ; 
000016 ian Sua wy Tee THAT DRIVE OFFLINE 
15 Pe’ ERP ST QUEUE 
000000 2S: IT IT11,RMCS1(R4) -DVA SET ? 
BNE ‘3 . ;SET THEN CALL OPT 
023042 MOV #10000. , TIMER(R1) 
ASR R 
4g: FRR OPT ;START THE PENDING REQUEST 
3S: IMP sc4 ‘PROCESS OTHER DRIVES 
; R03 TIMER ROUTINE 
MOV STIME,-(SP) sELASPED TINE IN MILLISECONDS ON THE STACK 
: JSR PC, RPTMR CALL RMO3 TIME ROUTINE 
RPTMR: TST TORV ACTSTR™ 
oe |S FR ZERO exit 
023015 MOVE #1, ACTSTR 


ce a 570 r= ev 0 





MAINDEC-11-DZRMI 
21-JUL-77 15:44 


OZRMIA.P11 


a Est 023015 
ware 
at 


rery 


=e 


wigdsss 





rat a 
He 





000016 
000010 


10 


AO/00, RMO3 DRIVE COMPATIBILITY TEST MACY11 30( 1046) 
SINGLE/DUAL PORT RH70/RMO3 


21-JUL-77 16:51 PAGE 130 SEQ 0129 


DRIVER (REV 1.0) 


1S: it TIMER(R3) 
ae G19), TEENS? 
JSR PC,STO 

ss: ER thas 
CMP -yRl 

: per s 

3S: SREG 
CLRB ACTSTR 

4S: my baP)*, (SP) 


; SOFTWARE TIMEOUT ROUTINE 


IS THE ee RUNNING? 


ee oe 


SOFTWARE TIMEOUT ROUTINE 
TO NEXT DRIVE 


;OUT OF DRIVES? 
TE NO 


tREST RS 

TIVE «SOF THARE TIMEOUT ROUTINE FLAG 
¥ 

§ 


STL TE STACK 


;NOTE: Ts Roe MUST BE ENTERED AT PRIORITY 6 


bemts STO 

: MOV JRi 

: JSR PC, STO 

: RETURN 

STO: MOV Re) 
i Be 
MOV RT RneS2CRY) 
ISR RO, RD. RM 
7293 ($P)+ 

STOL: ac NT(RL) 
BNE T 
TSTB (R1) 
BNE T 
MOV R2 
CMP ie TUM 
Fe «fog 

1S: bis fies T09, 16( 
MOV fat RMCS2(R4) 
CLRB  —sORVACTIRI) 
CLRB LG(R1) 

ST02: Feve Babe RY) RS 
BITB ATABIT(RI),RS 
Pe BRINTCRID 
BNE ST06 
TSTB DPRQS(R1) 


;ORIVE NUMBER 
CALL 


: 
a is 
tae abo 
ADDRESS OF “RMCS1” 
i SELECT THE DRIVE 
; “DRIVE STATUS REG” 


IS. eee 
ine T9 INTIALIZE THE DRIVE ? 
NG PORT REQUEST FOR THE DRIVE ? 







‘ 
: WAIT QUEUE 
3] ON THIS DRIVE? 
;1F NOT OC THER DRIVES 
) a 
AD thet es i tl 


i 
; BTRER DRIVES 
31S A ION FOR THIS DRIVE UP ? 
ies ee NTIALIZE THE DRIVE ? 
*BR IF YES - DRIVE NOT ONLINE : 
ZQUTSTANDING PORT REQUEST FOR THE DRIVE ? 


ein Cott O-Gae? _ —— Mg yoy) rigs) atu 16:51 PAGE 131 SEQ 0130 
ate? iene uh NO_RESPONSE TO REQUEST 
022770 ST03: BeINT (RI i as "eth — ? 


(R1) T PENDING ? 


; 
fre 
023042 1S: 8-1. TIMER(R3) ty THE TIMER 
e 
g 


: 


09 
HANDLE THE PARITY ERROR 


18 
Sey indy THE all INDICATOR 


daiioe JSR » CETREQ foe The ODRESS 
ue Le 


140000 000016 BeITiStB1714, wl nga NORM THE USER DRIVE NOT AVAILABLE 
177777 Oe304e STO7: #-1, TIMER(R3) Patel he TIMER 


FSBSOR 

: 
PREBIRAT ARS 
“tain hh 


See 
| 
g 
ABBSEVQuBvenr 
yee 
q2- 
a 


sT09 
000016 s81T15!BITe, vecna ne oon OF PORT REQUEST ERROR 
STO8: PeLEMPIYO “OL EAA THE Pray FOR THE DRIVE 

PC ; ne REGISTERS 

STO9: (SP)+, RY ; 

(SP)+°R3 ; 3 

(SP)+,Re Re 

(SP)+, 


Ri eis Rl 


: ie : 
Sor Ree a ke 
ee 


;ROUTINE TO READ A RH70/RMO3 REGISTER 








* CALL 
; JSR RO, RO.RM 
; ike eGo NDE FAO Be 
6 : ERRADR SS--PROCESS ERROR STARTING 
6798 : iB THI 
6233 : RETURN 5 . IS ON THE STACK 
6801 023074 030042 AD.RM: MOV MCPEMX, RD. RM2 a. RETRYS ALLOWED 
MOV (SP), -(SP) : 
023076 027720 MOV RMAOR,RD.ADR =; ss 
027720 ADD (RO)+;RO.ADR =; One 
RD.RM1: MOV a(PC)4,(PC)+ =; GISTER OF THE RMO3 
RD.ADR: .WORD 0 : HERE 
RO.WRD: :WORD O + REG. 
027722 00002 MOV RO.WRD,2(SP)  ; 
MOV RMADR, ~ (SP) ;PUT THE ON STACK 
1 ADD Sg, (SP) FORM THE OF RMCS2 
i i BIT sti "a(SP)+ CHECK THE BIT 
681 BNE RO. RMS ;BR IF DRIVE NON-EXISTENT 
ast A28d86 BIT rt Tis! (oP iB MEPES bers 
6usS BNE 1S “BRANCH IF YES 








MAINDEC-11-DZRMI AD RMO3 DRIVE COMPATIBILITY TEST MACY11 30(1046) 21-JUL-77 16:51 PAGE 132 
l- a he SINGLE, ‘UAL PORT RN7O/RNOS cape te 





OZRNIA.P11 2 15:44 DRIVER (REV 1.0) 
1 (SP)+, (RO)+ : T FOR RETURN 
esi? - gr RD. RM 5 14 
RO, ES. SAV ; N ’SESCAPE’ 
rey error | 9°’ ep BaT enche” ERROR 
ieee TST DTU DATA TRANSFER UNDERWAY? 
BIT SBITIM, (SP) jNO--"TRE"=1? 
as A (SP)+ OFF THE STACK AND 
ar: Be RD. RM iT HE CATAL ERROR EXIT 
Be? 2s: BIS. agiT14, (SP) CLEAR ieitine A “1” TO “TRE" 
6 
= mar feos PN GEG HL 
a: MOVE (SP)+,a(PC)+  ;WRITE THE HIGH BYTE OF RMCS1 
Do 3$: ~ WORD 0 ; 
of DEC (PC)+ : MAX. RETRYS 
x: RO.RM2: .WORD 3 
6835 BGE RD. RM1 ;BRANCH_IF NO 
68% RO.RM3: MOV (RO), RO *FATAL ERROR EXIT 
MOV (SP)4, (SP) 
68338 RD.RM4: RTS RO 
BBN ;ROUTINE TO WRITE A REGISTER 
1 ; 
6842 *CALL 
6843 : MOV DATA, -(SP) spare TO BE LOADED ON ON THE STACK 
Seay : JSR RO, WAT. RM zi OAD(WRITE) THE REG. 
6845S : INDEX a et TO BE LOADED 
6846 : ERRADR TO ON AN ERROR 
6847 : RETURN ore PREL RETURN 
013737 023074 WRT.RM: MOV MCPEMX.WRT.R2  ;MAX 
et 16637 030142 MOV 2(SP),WRT.WO SAVE MMi Bond 0 WRITE 
685 12616 MOV (SP)+? (SP) ; T THE 
e037 030144 MO. (RO)+;WRT.AD =} NOEX G TO BE WRITTEN 
1015 BNE 1S : NOT 
000150 030142 CMPB s«# 150, WRT. WD -T FOR DATA TRANSFERS? 
BLT is : 'T THE OLD Ale & Al? & PSEL 
027674 JSR , RD. RM : I BibeelZ, 8 PSEL WITH 
RNCS1 * THE COMMAND SENDING IT TO 
WRT .R3 >THE RH70/RMO3 
t 177770 Bice te? (SP) 
6861 15639 030143 MOVE  (SP)4,WRT.WO+1 
bbe 023076 030144 1s: ADD RMADR,WRT.AD =; FORM OF THE DISK REG. 
1 T.R1l: MOV (PC)+;a(PC)+ LOAD DESIRED REG. 
b864 WRT.WD: .WORD 0 *WORD TO WRI 
WRT.AD: .WORD "ADDRESS IS F HERE 
baee 923076 MOV RMADR, - (SP) :PUT THE ON STACK 
1 1 ADD 8RMCS2, (SP) “FORM THE OF RNCS2 
010000 BIT 8B1Tl2,a(SP)+ ;CHECK THe *NED’ BIT 
I BNE WRT .R3 BR IF OR SON-EXIST 
027674 RO, RO. RM CHECK FOR TY eteOR ON WRITE 
6871 000014 RMERL 











we DRIVE COMPATIBILITY pa! ¥11 3001 1-JUL-77 16:51 PAGE 133 
SI er Bist V 1.0) = 


WRT .R3 
ov 8 ee ese 


: 
JSR RM ; 
1S: p4 B $ I 
IR ques — i isa itty WRITE ERROR 
ST (SP)+ iCteRR stack 
WRT. R2: OFS RD ae 
WRT.R3 oe Re ny ete” Hat rep ERROR EXIT 
#3: BY gf 
WRT . Ra: TST (RO}+ ast FOR ERROR FREE EXIT 
ROUTINE TO SAVE THE RH70/RPO4/S/RMO3 REGISTERS AS PER OPB+14 
* CALL 
: 8OPBNUM, R2 ;DP8 POINTER TO R2 
: JSR PC, SVRH?70 *SAVE THE DRIVES REG’S 
SVRH70: SAVREG ;SAVE RO - 
OR ae har ra oe 
MOV BRAOR RY 
MOVE  (R2) .RMCS2(R4) j SELECT DRI 
Beg eater ‘Bar forpoonees, Te 
CLR : & POINTER 
o00022 1S: CMP — j REACH THE BUFFER REGISTER ? 
000010 Bt 1T07,RMCS2(R4)" ;’ Nr ’ 
BNE 2s BR IF SET 
CLR (R3)+ ‘STORE RMDB AS ZEROES 
BR 4§ ; CONT 
2s: ISR RO, RO. RM * READ SELECTED REGISTER 
) 5s, (SP)+, (R3)+ TORE REGISTER CONTENTS 
OO004 4S: cH pe ; Dae ED 
030326 ADD 3s : THE REGISTER INDEX 
BR is’ * CONTINUE fEPOING THE REGISTERS 
SS: JSR PC,CI7 * PROCESS UNCORRECTABLE PARITY ERROR 
6S: RESREG j RESTORE RO - 
RTS PC * RETURN 


Toe TO SET THE INTERRUPT WITHOUT GETTING A “TRE” 


oa MOV #ORVNUM, R1 sDRIVE NUMBER TO R1 
JSR PC, SET. fe SET "IE" 
: RETURN 





Ell 
SOEs 1t 7 H-SE%y BERR COMI Ae HS Bl Hay St POE 0 











010446 SET. IE: Hoy RY (SP) iSAVE RY tes 
teies 00018 RV WORE ay, ECR poneEss 
MOV Ra) =(SP) s READ RHCS 
16 o40000 BIS ae! 14, (SP) *SET THE BIT OF THE WORD READ 
1 SWAB s«SP*) ‘ADJUST FOR SATO 
2714 100 MOVB  8BITO6, (RY) SET "IE" 
10000 000010 BIT eg1T12, RACS2P4) iTS “NEn‘=1? 
rst ip OFAN DFE THE STACK 
000001 : MOVB (SP)4, 3(R4) ; ° 
t i: MOV (SP)+3k4 RESTORE RY 
000207 RTS PC *RETURN TO CALLER 
- ae cou pare 0 
: BME 8 DRIVE 4 
000 “BYTE 0 DRIVE 2 
see ° H 3 
: Bio 
NOC 0 ;DRIVE S 
000 "BYTE 0 ‘DRIVE 6 
000 "BYTE 0 :DRIVE 7 
QUEUE INPUT POINTERS 
030446 030530 QINPT: .WORD  QDRVO DRIVE 0 
0 030550 "WORD  QORVI ‘DRIVE 1 
031 030570 “WORD  QORV2 :DRIVE 2 
03045) 630610 “WORD  QORV3 ‘DRIVE 3 
DS045E “WORD  QORV4 ‘DRIVE 4 
030460 -HORD i DRIVE S 
SO4E 1 “ WORD :DRIVE 7 
;QUEUE OUTPUT POINTERS 
x QOUTPT: .WORD  QDRVO DRIVE O 
50 “WORD  QORVI i DRIVE ! 
630610 “Honp is ‘3 DRIVE 3 
: tee Sins BALE & 
030710 "WORD  QDRV? DRIVE 7 
S06 030530 QSTART: .WORD  @ORVO DRIVE 0 START ADDRESS 
E QSTOP: [WORD QORVI : DRIVE 0 STOP $5 DRIVE 1 START ADDRESS 
ez “WORD  QDRV2 : STOP IVE --STAR IVE 2 
é 10 “WORD  QDRV3 :STOP DR TART DRIVE 3 
baad Gaueee “WORD ObRVS tarp DRIVE 4--START DRIVE & 
pagl 0305 70 “WORD GORVE : STOP Pave S--StAt BRIE a 
C 1 “WORD STOP DRIVE 6--START DRIVE 7 
6983 030526 030730 “WORD  QTERM :STOP DRIVE 7 


od a | tet A0/00, RMO3 DRIVE COMPATIBILITY TEST MACY11 30( 1046 
Pll 21-JUL- SI /DUAL PORT RH70/RMO3 


SeanaeeR 


sesdsese 
NOU £W-O 


SoC HEB Re BE URNA U BSS 
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030436 
030446 030466 


F1l 


) 21-JUL-77 16:51 PAGE 135 
DRIVER (REV 1.0) ase. Cea 
;DRIVE REQUEST QUEUES 
QORVO: . 10 
ee} 
“_-* 1 
QORV4: . 1 
QDRVS: -BLKH 10 
i a tn 
QTERM=. 
;ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 
‘CALL 
: ISR PC, CLRQUE 
CLRQUE: SAVREG ;SAVE RO - RS 
MOV 8QCNT, i ZERO THE QUEUE COUNTS 
CLR (R2)+ *DRIVES O 8 I 
CLR (Ro)+ iDRI 28 3 
CLR (R2)+ ;DRI 43 
CLR (R2)+ : DRIVE 7 
MOV 0. : TARTING 
MOV TART, R1 : SS OF THE QUEUE INTO 
1S: MOV (R1)+, (R2)+ *THE QUEUE INPUT POINT 
DEC 83 
BNE 1g 
MOV #8. .R3 ; THE STARTING ADDRESS 
MOV #QSTART,R1 :OF THE QUEUE INTO T 
2s: MOV (R1)+, (Re)+ *QUEUE OUTPUT POINTER 
DEC R3 
BNE 25 
RESREG ;RESTORE RO - RS 
RTS PC 
;EMPTY THE QUEUE SPECIFIED BY RI 
*CALL 
: MOV DRVNUM, RI ;DRIVE NUMBER TO R1 
; JSR PC, EMPTYQ 
EMPTY@: CLRB Q@CNT(R1) ;CLEAR NUMBER OF ITEMS IN QUEUE 
HOV GINPT(RI) , QOUTPT (RL) ;SET OUTPUT QUEUE POINTER=INPUT POINTER 
RTS PC 
ROUTINE TO PUT A REQUEST IN QUEUE 
* CALL 
: MOV #ORVNUM , RI ;DRIVE NUMBER 
: MOV 80PB, R2 ADDRESS OF TER BLOCK 
: JSR RO, DRVQUE ?GO PUT REQUEST IN QUEUE 
: RETURNI “RETURN HERE IF QUEUE IS FULL 





Gll 


Hy EGP Coe Tl BS Be tA) St PE 0 0 
;RETURN HERE IF REQUEST IS IN QUEUE 


B10,QCNT(RLD I ’ 
my Oda cbc SI 


SRUTLAY  ATe ARE RSE 


od at el 


R 
2 


SSS 
a 
; 


Sepa sebas 
| ee 
antes 


QIPT(RI), asToP (AL) jin TO, TO RESET THE POINTER 
31 030506 O30446 * QSTART(RL),INPTERL) YES"-RESET POINTER 
1 (RO)+ ; TAKE RETURN 2 
2s: RO ‘RETURN TO USER 


Basen Eanes 





¢ 
es ee ee be ee 


j ROUTINE TO GET THE “DPB” ADDRESS OF NEXT REQUEST IN QUEUE 


: IR oy Pence 00 cer ie SeeSy THE REQUEST 


;Re=0 IF NO REQUEST IN QUEUE 


RAL aT | 


031102 o0s002 GETREQ@: CLR R2 
031104 105761 030436 TSTB = QCNT(R1) ;IS THERE ANY REQUEST IN QUEUE? 
DS Lie 1 1s ay ; NO---BRANCH 
mtit 17102 030466 . MOV PT(R1),R2 ;PICKUP “DPB” POINTER FOR THIS DRIVE 
031120 006201 ASR Ri 
031122 000207 2s: RTS PC RETURN TO USER 
;ROUTINE TO “POP” THE REQUEST FROM QUEUE 
* CALL 
: MOV SORVNUM, Ri DRIVE NUMBER TO Ri 
: JSR PC, POPQUE ‘CALL TO REMOVE REQUEST 
: RETURN *R2=ADORESS OF DPB REMOVED 
1 105361 030436 POPQUE: DECB (RL) ;DECREMENT QUEUE COUNT 
te ate RSL 4 TRL), Re T THE * PO 
fat tae Ried? heated CLR (RL) i REMOVE S FROM THE QUEUE 
eeaaer 
HS BREE BORE GRR RG RPVILS"Uron PVF rt PORRGE He Foren 
ll 1 BNE -BRANCH TO EXIT 
11 161 030506 030466 MOV OSTART(RI), oouTPitRi) ; YES--RESET THE POINTER 
11 1 1S: ASR Ri 
1170 000207 RTS PC RETURN TO USER 
;ROUTINE TO SAVE THE CONTENTS OF ’SESCAPE’ WHEN THE DRIVER 
;REPORTS AN ERROR DIRECTLY. 
;CALL 
JSR RO, ES. SAV 
; 


ERROR ;: THE ERROR CALL 
RETURN : THE RETURN IS PAST THE ERROR CALL 








a 


Bb bs be pe 


BEIFRIBRH 


a) 
9 
o 


DONC £WwU-O 
: 


el eee oe ee en 


~ 
Oo 
— 
Fa 


us 


SG Be) 


eae 


COo0o000- 


= 


BESESRERRSESSE8R BESEE 
SREBISERERTORRS RONG 


Pe ee Be Bee hs be hm bo ho se es fee pee le eee oe 


: 


NNN NS NNNN NNN SNS N SIN NSIS NSIS NSN SSNS SSIS SSNS SS 
Tu 


Qe He eet Pee Be Be bP pee Fem De = Be fs Bo hae Be bs bm bm hee bs bm Pm bao Bee Bs et bes Bem Bee pee Bes Fe he he be pee Bo be ee pe es ee pe he the 


~“GS5ITFHESH-—SSBUKRPBRESSSVRRISHLY 


Op, OR DRIVE COMPAT TB ILETY aad ree ee rer) LIRA) thd? 16:51 PAGE 137 SEQ 0136 


206 ES.SAV: MOV (RO)+,1$ ;GET THE ERROR CALL 


1% Ry HSE [eine eee Wg 


1176 — hoy (5P)+, SESCAPE THe TORE THE ESCAPE AODRESS 
5 RETURN 
; 5, HEE SESE SES SE SE EE SE SE 3 A SS SE 
\SBTTL DATA, CONTROL, & STATUS BLOCKS 
$3 SAA RARER RA RAKES SERRE ARES ERA ARLES ARERR ERAA ARERR AAAS RAARA RHEE 
\SBTTL ROUTINE TO SIZE MEMORY 
* REESE ERERE REESE A ERE ERE REET Peete stiri ttt titi titi tt titi tt titties! 
iy «SSR_~—s«PC, SIZE 
SESLSTAD HILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION 





SSIZE: HOV = (SP) ;;SAVE RO ON THE STACK 
HOV Rise 5 (SP), HSive BRESENT ERROR V VECTOR PS & PC 
;;SET THE ERRVEC Pato THE rescl #. daphne psa 
aes atten HOV Sakae . rol iret PSW IN J8ERRVEC+2 
1S: Wer (Ri) _ $3 THIS 
TST (R14 HBTeP To nett abbas 
i ae ec 
ai Bs Sere preg inthe Ua Wien 
031312 MOV R1, SLSTAD ADDRESS 
my fethtay | TURESTOR 
SLSTAD: RUORD oO ;;CONTAINS THE LAST ADDRESS 
GET 


-SBTTL BUSADR - BUS ADDRESS AND VECTOR ADDRESS FOR RH11 
3 THIS ROUTINE IS USED Fee INSURE THE BUS ADDRESS 

THE RH11 IS SETUP Fi PROPER ADDRESS. 
‘IT i AL 20 READ THE’ AOORE FROM THE TTY IF 


;REQU . 
:NOTE: THIS ROUTINE DESTROYS RO-RY 
;CALL 


: JSR PC, BUSADR 
: RETURN 








SEQ 0137 
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ame 


MAINDEC-11-DZRMI AO/00 


OZRMIA.P11 





: 

i; of 7 
a ae f & 
a 8 eget Be Bg = 
p & s ‘ of ous bbs aaa 
i ty) pees be , a bse 
SB e  Syoc Bea Sae mate ayY : nn 
reer Ses ee pee 
pee ee 


is 
ss ‘ ge ors a So ze 
ae ae i iss « 
a z <3 on z z 5 +o Ge, I z 
ts 4 SyeGEe S 33 i Pace] oft oo a sdzsver 
- 
, 3 SebBEEECER 


-ASCIZ @RNCSI = a 


Sat O41S0S MRHVEC: .ASCIZ @RHVEC = @ 


TYPE 


en oman 


bs 
i. : : 


106 1 1 : 
TA | i 


SoNMaanenenuannnne ens Toes Te ee ETE Pa rie 


Soon ime enna aes iene: eben een 


888388383 
OSA Ba TIS NRL RRR ENGEMND REA OE IRG AER AER 


4¢ 
Ss: 
6$ 


H-EG x A 
emeneme — 


051503 020061 MRNCS1: 
000 





8k kk a ad a ad ad ad Od ad dd ad ad ad dd nd dd a ad dd nd ad ad ad dd ad dd dd tt 








Vn | 


an bee be fet BS ee pe 


BBE 


Poo be fs bee be Pt en fe Ba ee 


oo 


AvA 


bw be 


IVE COMPATIBILITY TEST eer (1046) 21-JUL-77 16:51 PAGE 139 
CK.NUM - CHECK (OCTAL) 
CMPB RY, 80 ;SMALLER THAN ASCII-O ? 
BLO Ss ;YES ERROR E EXIT 
CMPBséRY, 87 THAN ASCII-7 2 
BHI 55 iYES 
ASL Re SHIFT LEFT 
BCS cS : 
ASL R2 ONE 
BCS c§ ; 
BCs Bes -  PEROR a Lewy PRY BIT SET 
ADD R4,R2 ’ EREPEIOING AORRENT bicrT TO NUMBER - 
DEC : cont 
eee $ IF 
1 ; LOOP 
2s: MOVE =: (R1)+, R4 : CHECK RAINATOR 
as; fet Re INA VALUE = 0 
BEQ S$ “YES, T EXIT 
MOV = R2, (RO) j REPLACE ORIGINAL _VALUE 
4g: TST (RS)+ ‘ADJUST FOR NORMAL RET : 
Ss: MOV (SP )+,Ry j RESTORE 
HOV CBPaS RG RESTORE Ae 
RTS Ke : EXIT 
; ; RRRRRELEE REESE EERE EERE EERE E EERE EERE EERE AEE ARE RAE RR EE 
.SBTTL ERROR MESSAGES 
$ 5 RRRERREERE EERE EERE REE ERA EEE ERE EERE EERE AER ER ERE EEE 
.NLIST BEX 
O304S0 EMI: | .ASCIZ /RH70(11) INTERRUPT OCCURRED (RMAS = 0)/ 
050130 EM2:  .ASCIZ /UNEXPECTED ATTENTION OCCURRED/ 
041123 EM3:  .ASCIZ /MASSBUS PARITY ERROR (MCPE=1)/ 
041123 EMY: | .ASCIZ /MASSBUS PARITY ERROR (PAR=1)/ 
0S1S0S EMS: | .ASCIZ /ADDRESS PLUG CHANGE BIT SET/ 
033450 EMG: § .ASCIZ /RH11(70) DIDN’T RESPOND TO ADDRESSING/ 
051122 EM10: .ASCIZ /UNCORRECTABLE MASSBUS PARITY ERROR/ 
046101 EM11: .ASCIZ /FATAL MASSBUS PARITY ERROR/ 
051511 M12: .ASCIZ /PERSISTENT DEVICE UNSAFE/ 
O40S22 £M13: .ASCIZ /OPERATION NOT COMPLETED WITHIN TIME LIMIT/ 
042526 EM14: .ASCIZ /DRIVE WENT OFFLINE/ 


J1l 


SEQ 0138 
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R0700 
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032344 
032400 
032421 


047516 
042510 
104 
051127 
127 
042510 
042510 
106 
042510 
115 
117 
051104 
120 
051127 
047111 
051127 
104 
lee 
102 
104 
040503 
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051040 
042101 
052101 
0S2111 
o44S22 
042101 
042101 
051117 
042101 
051511 
042520 
OS3111 
051101 
OS2111 
040526 
052111 
052101 
030510 
051525 
052101 
023516 
051122 
041503 
051525 
042505 


EMIS: 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
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/NO RESPONSE TO PORT REQUEST/ 

/HEADER CRC ERROR/ 

/DATA CHECK (’DCK’) ERROR/ 

/WRITE CHECK ERROR - DATA CHECK (’DCK’) SET/ 
/WRITE CHECK ERROR - DATA CHECK (’DCK’) NOT SET/ 
/HEADER READ ERROR - ’FMT’ BIT DROPPED/ 

“HEADER READ ERROR - HEADER COMPARE (’HCE’) ERROR/ 
/FORMAT ERROR (’FER’)/ 

/HEADER COMPARE (’HCE’) ERROR/ 

/MISCELLANEOUS DRIVE ERROR/ 

/OPERATION INCOMPLETE (’OPI’) ERROR/ 

/DORIVE TIMING (’DTE’) ERROR/ 

/PARITY (’PAR’) ERROR AFTER OPERATION STARTED/ 
/WRITE CLOCK FAILURE (’WCF’) ERROR/ 

7INVALID ADORESS (’IAE’) ERROR/ 

/WRITE LOCK (’WLE’) ERROR/ 

/DATA CHECK (’DCK’) SET DURING WRITE CHECK COMMAND/ 
7RH11(70) OR UNIBUS TRANSFER ERROR/ 

/BUS ADDRESS OR WORD COUNT INCORRECT/ 

/OATA COMPARE ERRORS - NO OTHER ERROR(S) DETECTED/ 
/CAN’T MATCH DATA READ WITH A PATTERN/ 

/ERROR BIT(S) SET, BUT NO ERROR SIGNALED BY THE RH11/ 
ZECC LOGIC FAILURE - POSITION REGISTER VALUE NOT VALID/ 
/BUS ADDRESS AND WORD COUNT NOT CONSISTENT/ 

/SEEK INCOMPLETE (’SKI’) ERROR/ 

/PROGRAM DETECTED POSITIONING ERROR/ 

/ORIVE UNSAFE ERROR/ 

¢ # 
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NNNNNNNNG 


furs ee ee Ge ee se 


seEEyyaye 
SRRRARDODE 


EVEN 
\LIST BEX 
Bre: «WORD «RIVE CRMERRS, RMERRS+2, RNERRS+4, RHERRS#6, ATTN, O 
OT3:  .WORD DRIVE,RD.ADR,RO.WRD, 0 
DT4:  .WORD DRIVE, WRT. AD,WRT.WO, RD.WRD, 0 
BTS; =: HORD «RIVE RM. REG, RM. REG+2, RM. REG#4, RM. REG#6, 0 
DT10: .WORD RM.REG+10,RM.REG+12, RM. REG+14, RN. REG+16,RM.REG+22, 0 
DT11: .WORD RM.REG+24, RM.REG+26, RM. REG+32, RN. REG+36,RM.REG+40, 0 
DT12: .WORD RM.REG+42, RM.REG+44, RM. REG+46, 0 


- 
8 


/SUBSYS / 

/ORIVE(S) 7 

/*#% START cK ON DR PASS 1 ##/ 
DRIVE / 


1Z 

IZ 

1g out ea ; 

i Aer SP RAMI inher, 
oe 

i 


a 
8 


BRRIRRIIBROBR 





10: 
resciz: , TRY AGAINZ 
13: / Pack, <cR> LF 
/TYPE R<CR> Coe 
MESGI4: /%#% STARTING PASS 2 ## 
MESGIS: / #* ALL DRIVES ARE COMPATIBLE #%/ 





MAINDEC-11-DZRMI AQ/00, RMO3 ORIVE COMPATIBILITY TEST MACYI1 30(1046) 21-JUL-77 16:51 PAGE 142 SEQ 0141 
OZRNIA.P11  21-JUL-7? 15: ERROR MESSAGES 





: -BSC12 FOR DRIVE / 
* / DRIVE OVRWRT OVRWRT READ READ/ 
8: RCI WMO. READ OFST- OFST+ OFST- OFST+/ 
‘e, * , {1,0 THE SEQUENCE OF SELFX,TAB MUST BE NOT REVERSED. 
< « 11,0 
COMMA: . Z 74,7 
11 020114 ree 3 PUTLL TEST / 
, 042510 : As fvere ANOTHER SUB-SYSTEM (Y OR N<CR>) 77 


Spee 
v 
azz 

a 


BBRBRRRRRR 


sANN SN 
“ 


»<LF>7 'L’ OR 'P’ CLOCK REQUIRED ON SYSTEM/<CR><LF> 


18 FOR DRIVE 8/ 
? INVALID ENTRY/ 
BAD TRK/SEC ADOREES FOR DRV #@ 


NA 
<3 


: 


‘ 
“2 
nuN 

Le) 

a 

‘“ 


-¢ 

/ORIVE STATUS/ 

/ BAD SPOT FILE / 

/ #% END OF eat iHt/ 

4} NOT ON-LINE OR NOT ASSIGNED/<CR><LF> 


annannnnannanannnnaanan 
: 


/PROGRAM HALT/<CR><LF> 





EVEN 
.LIST BEX 
sHISTORY FILE FOR 1S LOGICAL DRIVES: (0-17) 
SFMT = 1 
OMND = MT41" ; COMM 
fea s Hse Pa, SeLEt AND Alb, A17 
= + ; WORD 
Sour 2 SENT+s i BUFFER ADDRESS 
= e 
= MT+10 Track * Se 
ie? Baba 
SPHYDR = +1 iBUVSTCAL DRIVE COOE (ASCII ) 
Ss . 
$cAP ss Fntsis Pee oe NULL BYTES 
SEMTAB = SGAP+4 ;END OF HISTORY TABLE 





000 000 DRIVO: .BYTE 780,0 “HISTORY BLOCK OF LOGICAL DRIVE 0 
"BLKB S$tMTAB-SCOMND 
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OZRMIA.P1L © 21-JUL-77 15:44 ERROR MESSAGES 








000 ORIVI: .BYTE 761.0. HISTORY BLOCK OF LOGICAL ORIVE 1 
000 ORIV2: ‘RA siehr sHISTORY BLOCK OF LOGICAL DRIVE 2 
000 ORIV3: -BYTE ; sHISTORY BLOCK OF LOGICAL DRIVE 3 
000 DRIVY: - BYTE 74.0 eis BLOCK OF LOGICAL DRIVE 4 
000 ORIVS: |. BYTE 75,0 .iHISTORY BLOCK OF LOGICAL DRIVE 5 
000 DRIVe: |. BYTI "aah sHISTORY BLOCK OF LOGICAL DRIVE 6 
006 ORIV7: BYTE 787,0  — ;HISTORY BLOCK OF LOGICAL DRIVE 7 
000 ORIVIO: .BYTE 78 sHISTORY BLOCK OF LOGICAL DRIVE 10 
000 ORIVI1: BYTE 78 sHISTORY BLOCK OF LOGICAL ORIVE 11 
000 ORIVI2: -BYTE 78 sHISTORY BLOCK OF LOGICAL DRIVE 12 
000 ORIVI3: .BYTE 78 sHISTORY BLOCK OF LOGICAL DRIVE 13 
000 DRIVI4: .BYTE 7814 sHISTORY BLOCK OF LOGICAL DRIVE 14 
000 ORIVIS: - BYTE 7% sHISTORY BLOCK OF LOGICAL ORIVE 15 
000 DRIVI6: :BYTE 78 sHISTORY BLOCK OF LOGICAL DRIVE 16 
000 ORIVI7: . 7817.0 | iHISTORY BLOCK OF LOGICAL ORIVE 17 
FMTOPB: -BvTe 0 ; ORIVER TER BLOCK, DRIVE # 
BYTE 9 ;OFFSET FHT16,HCI,ECI 
Sh 
;WORD — SENDPGM ; ROORESS 
: : RM. REG it 10 SAVE ALL RH11/RMO3 REG’S 
: os Sate 
3 RM.REG: . WORD 9 sRncS1 
% ‘Hoe 8 ie 
33 - WORD 5 sRMCS2 
40 “HORD {RMERL 
Mi - WORD ;RMAS 
7344 “WORD 0 ?RMMR 1 
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7388 
7389 


Soy eh eshen beh cadaaaaeas ica ee ee 


2 nb 


: 


: 


000001 
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-LIST 


oO ibe Se gy ETRE 





os 


Pore Row 


MACY11 30(1046) 21-JUL-77 16:51 PAGE 144 


OoNndoOoOoOoOo0oO 


= ‘ ;LAST LOCATION OF PROGRAM+2 


<CR> (LF > /MAINDE: atts ZRMI-A/<CR> <LF> 


@RMO3 DRIVE LITY TEST@<CR><LF><LF> 
«CR <LF>/TO Test ORIVE : 
TH ANO 


M 
“AND RESTART THE PROGRAM/<CR> <LF> 


LOCATION 40, /<CR><LF> 


SEQ 0143 


XXDP’ PACK ON DRIVE 0/<CR><LF> 





Cle 
BEARD PLE °7MSE 900 9%> TEPHYPRIVE COPPATAR US treneRce Paae* S°kRR eo Bdis 77 “#4 PAGE ING sea 0144 


ABASE = 176700 16608 1792 1833 
poet = 000000 1792 1835S 
= l 1836 
2 1943" 1807 
AC Seide 6082 6133% G64S1* 6460% 6694 
ACTSTR # 6700% 6714 


ERREEEererED 
ce 


= 


: 


eneaHee 
ee 


REESE RET RR RR RRS RR RR ARRRRTARERRAR SER! 


SSR RT SSSRRN TSN eS RSC ee 


ae 





1418 
5097 51398 
IZ= 51388 — 
& 7 Fy ol 2553% 2577 2583 3746 
& ao cetce 34 * 3058 
rene 3074 3837% . 
a ; : 3 Sests 6049 6145S 6251 6621 6640 6648 6649 6669 - 6755 
AT 18548 7242 7243 





SEQ 014S 
6906 
6160 6340 6359 
6540 6680 
6292 


6274 6278 


6157 


6644 


5 2 § 8 e ae 

: me gg 3 

2 o - go 

a se 86 8 SS 5 ge 

3, cu oo @ cu wo 

“§ eS OSes SE 2 
~e B20 F PoRTo! iS ? 
oee Boe § Saeess 83 Bi Ste 


a2 § Sy ae SS 

Sa © GOERSSE ERUGEEMEY «= g 
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